perhitungan harga setelah diskon , dengan menggunakan keypress

Private Sub Cmdhitung_Click()
Dim A, B, C As Double
Txtb.Text = Val(Txta.Text) * 0.1
Txtc.Text = Val(Txta.Text) - Val(Txtb.Text)

End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdulang_Click()
Txta = ""
Txtb = ""
Txtc = ""
End Sub

Private Sub Txta_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtb.Text = Val(Txta.Text) * 0.1
Txtc.Text = Val(Txta.Text) - Val(Txtb.Text)
End If
End Sub