kalkulator dengan keypress

Private Sub cmdbatal_Click()
textpenjumlahan1 = ""
textpenjumlahan2 = ""
textpenjumlahanhasil = ""
textpengurangan1 = ""
textpengurangan2 = ""
textpenguranganhasil = ""
textperkalian1 = ""
textperkalian2 = ""
textperkalianhasil = ""
textpembagian1 = ""
textpembagian2 = ""
textpembagianhasil = ""
textpenjumlahan1.SetFocus
End Sub

Private Sub cmdhitung_Click()
textpenjumlahanhasil = Val(textpenjumlahan1) + Val(textpenjumlahan2)
textpenguranganhasil = Val(textpengurangan1) - Val(textpengurangan2)
textperkalianhasil = Val(textperkalian1) * Val(textperkalian2)
textpembagianhasil = Val(textpembagian1) / Val(textpembagian2)
textpenjumlahan1.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textpenjumlahan1 = ""
textpenjumlahan2 = ""
textpenjumlahanhasil = ""
textpengurangan1 = ""
textpengurangan2 = ""
textpenguranganhasil = ""
textperkalian1 = ""
textperkalian2 = ""
textperkalianhasil = ""
textpembagian1 = ""
textpembagian2 = ""
textpembagianhasil= ""
textpenjumlahan1.SetFocus
End Sub


Private Sub textpembagian1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpembagian2.SetFocus
End If
End Sub


Private Sub textpembagian2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpenjumlahanhasil = Val(textpenjumlahan1) + Val(textpenjumlaha2)
textpenguranganhasil = Val(textpengurangan1) - Val(textpengurangan2)
textperkalianhasil = Val(textperkalian1) * Val(textperkalian2)
textpembagianhasil = Val(textpembagian1) / Val(textpembagian2)
textpembagianhasil.SetFocus
End If
End Sub

Private Sub textpengurangan1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpengurangan2.SetFocus
End If
End Sub

Private Sub textpengurangan2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textperkalian1.SetFocus
End If
End Sub

Private Sub textpenjumlahan1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpenjumlahan2.SetFocus
End If
End Sub

Private Sub textpenjumlahan2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpengurangan1.SetFocus
End If
End Sub

Private Sub textperkalian1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textperkalian2.SetFocus
End If
End Sub

Private Sub textperkalian2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpembagian1.SetFocus
End If
End Sub