Realizar operaciones matemáticas con InputBox

Este proyecto sirve para realizar operaciones matemáticas, como Suma, Multiplicación, División y Resta desde Visual Basic 6.0 usando InputBox.

En cada inputbox se escribe el numero a calcular y en el último se digita el símbolo que desea operar, como, +, -,*,/.

Al darle aceptar aparece un mensaje con el resultado.

Para este ejemplo escribiremos el siguiente código en el formulario:

Private Sub Form_Load()

    Dim dato1 As String
    Dim dato2 As String
    Dim signo As String

    dato1 = InputBox ("Digite el primer número para la operación:", _
                      "Operaciones Matemáticas")
    dato2 = InputBox ("Digite el segundo número para la operación:", _
                      "Operaciones Matemáticas")
    signo = InputBox ("Digite el símbolo correspondiente para " & _
                      "la operación que desea realizar." & _
                      "Símbolos: *   /   -   +.", "Operaciones Matemáticas")

    If signo = "+" Then
        MsgBox ("El Resultado de la Suma es: ") & Val(dato1) + Val(dato2), , _
                "Resultado de la suma"
    ElseIf signo = "-" Then
        MsgBox ("El Resultado de la Resta es: ") & Val(dato1) - Val(dato2), , _
                "Resultado de la Resta"
    ElseIf signo = "*" Then
        MsgBox ("El Resultado de la Multiplicación es: ") & Val(dato1) * Val(dato2), , _
                "Resultado de la Multiplicación"
    ElseIf signo = "/" Then
        MsgBox ("El Resultado de la División es: ") & Val(dato1) / Val(dato2), , _
                "Resultado de la División"
    Else
        MsgBox "Algún dato incorrecto, sírvase corregirlo.", _
                vbOKOnly + vbCritical, "Error"
    End If

End Sub

Después de escribir el código anterior, presionamos F5 para ver el formulario.

Nos aparecerá un cuadro donde nos pide un número, en el escribiremos cualquier número y le damos aceptar, como  se muestra a continuación:

Después nos aparecerá otro recuadro donde nos pedirá el segundo número, como el siguiente, también le damos aceptar:

Luego nos aparecerá el último inputbox, en ella digitamos: +, -, *, / ., como se muestra a continuación:

Por último nos aparecerá un mensaje con la respuesta, como el que se muestra a continuación:

Espero que les sirva de algo...