Entra el experto en programación VB~~~~~~~~~~~~~
Agregue dos controles: comando1 y texto1, donde el código de comando1 es el siguiente
Private Sub Command1_Click()
Dim St As String, Sta As Cadena, Stb Como cadena, i%, a#, b#
St = Trim(Text1.Text)
a = Val(St)
Sta = a
p>i = Len(Sta)
Stb = Medio(St, i + 1, 1)
b = Val(Medio(St, i + 2))
Seleccione Caso Stb
Caso "+":
St = Str(a + b)
Caso " -":
St = Str(a - b)
Caso "*":
St = Str(a * b)
Caso " /":
St = Str(a / b)
Fin de selección
Texto1.Text = St
Fin Sub