perhitungan harga pakai keypress

Private Sub cmdhitung_Click()
txtha = ""
txtdis = ""
txtha = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulangi_Click()
txtha = ""
txtdis = ""
txtha = ""
End Sub



Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - Val(txtdis)
End If
End Sub