[3booody]

تفضل طلبك لكن لازم تكون العملية بين رقمين فقط لان اذا كثرت تتعقد الامور

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
        MsgBox(GetNum(TextBox1.Text))
    End Sub
    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