[boudyonline]

كود :

Dim FirstNumber As Integer
Dim SecondNumber As Integer
Dim Operation As Integer
Select Case Operation
       Case 1
           add(FirstNumber, SecondNumber)
       Case 2
           multiply(FirstNumber, SecondNumber)
       Case 3
           subtract(FirstNumber, SecondNumber)
       Case 4
           divide(FirstNumber, SecondNumber)
End Select

مثال آخر منقول :
Function GetNum(ByVal txt As String) As Double
On Error Resume Next
If txt.Contains("+") Then
Return CDbl(txt.Split("+")(0)) + CDbl(txt.Split("+")(1))
End If
If txt.Contains("-") Then
Return CDbl(txt.Split("-")(0)) - CDbl(txt.Split("-")(1))
End If
If txt.Contains("*") Then
Return CDbl(txt.Split("*")(0)) * CDbl(txt.Split("*")(1))
End If
If txt.Contains("/") Then
Return CDbl(txt.Split("/")(0)) / CDbl(txt.Split("/")(1))
End If
End Function