Visual Basic - Suma dentro de text

hola quiero hacer un text para sumar pero solo uno y tengo la lo sig para hacerlo pero no me funciona por q

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim comodin As Integer
If KeyAscii = 43 Then 'tecla +
comodin = Int(Text1) + comodin
Text1 = ""
KeyAscii = 0
ElseIf KeyAscii = 13 Then 'tecla intro
Text1 = comodin
End If
End Sub

Prueba con este código, he cambiado dos instrucciones del tuyo.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static comodin As Integer
If KeyAscii = 43 Then 'tecla +
comodin = Int(Text1) + comodin
Text1 = ""
KeyAscii = 0
ElseIf KeyAscii = 13 Then 'tecla intro
Text1 = comodin + CInt(Text1.Text)
End If
End Sub

Espero te sirva. Saludos Pola. Si no entiendes el código ó los cambios que he realizado dimelo.