Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range('A1') = TextBox1
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range('B2') = TextBox2
End Sub
Private Sub TextBox2_Change()
TextBox3 = Val(TextBox1) * Val(TextBox2)
End Sub