penjumlahan dengan keypress

Private Sub cmdhitung_Click()
texttotal = Val(textn1) + Val(textn2)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textn1 = ""
textn2 = ""
texttotal = ""
textn1.SetFocus
End Sub

Private Sub textn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textn2.SetFocus
End If
End Sub

Private Sub textn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texttotal = Val(textn1) + Val(textn2)
End If
End Sub