hola gervi, espero que uno de estos codigos sirvan a tu projecto
==============================================
primer codigo(necesita un text1)
si en el text1 presionas + llama al proceso
==============================================
Private Sub Text1_KeyPress(KeyAscii As Integer)
' si presiona el signo + va al proceso
If KeyAscii = 43 Then proceso
End Sub
Sub proceso()
res = MsgBox("Sumarlos si o cancelar", 20, "Mensage")
Select Case res
Case 6
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 234
b = 456
c = a + b
MsgBox c
Case 7
Exit Sub
End Select
End Sub
==============================================
segundo codigo(necesita un text1,text2.text3)
si en el text2 presionas la tecla + suma o resta dependiendo del numero
es el del if que dices
==============================================
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 43 Then procesoif
End Sub
Sub procesoif()
Dim a As Double
Dim b As Double
a = Text1
b = Text2
If (Text2 = "") Or (Text3 = "") Then Exit Sub
If Text2 > 5 Then
Text4.Text = (a + b)
Exit Sub
Else
Text3.Text = (a - b)
Exit Sub
End If
End Sub
==============================================