kalkulator tanpa 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