在Visual Basic中，你可以使用函数（Function）来返回两个数的和、差、积或商。以下是一个简单的例子，演示了如何创建一个函数来返回两个整数的和：
```vb
Function SumOfTwoNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Return num1 + num2
End Function
Module Module1
Sub Main()
Dim number1 As Integer = 5
Dim number2 As Integer = 10
Dim result As Integer
result = SumOfTwoNumbers(number1, number2)
Console.WriteLine("The sum of " & number1 & " and " & number2 & " is " & result)
' 如果需要退出程序，可以调用 Console.ReadLine() 来暂停程序
Console.ReadLine()
End Sub
End Module
```
在这个例子中，`SumOfTwoNumbers` 函数接受两个参数 `num1` 和 `num2`，然后返回它们的和。在 `Main` 子程序中，我们调用了这个函数，并打印了结果。
如果你需要返回其他类型的操作结果，比如差、积或商，你可以相应地修改函数的返回值和操作：
```vb
Function DifferenceOfTwoNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Return num1 num2
End Function
Function ProductOfTwoNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
Return num1 num2
End Function
Function QuotientOfTwoNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As Integer
' 如果第二个数是0，则返回0或者抛出异常，取决于你的需求
If num2 = 0 Then
Throw New DivideByZeroException("Cannot divide by zero.")
End If
Return num1 num2
End Function
```
请根据实际需要选择合适的操作和返回类型。
