Private Sub TextBox1_Change()
On Error Resume Next
TextBox3.Value = CStr(CDbl(TextBox1.Value) * CDbl(TextBox2.Value))
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Value = CStr(CDbl(TextBox1.Value) * CDbl(TextBox2.Value))
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("12334567890,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
TextBox3 = CDbl(TextBox1) * CDbl(TextBox2)
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3 = CDbl(TextBox1) * CDbl(TextBox2)
End Sub