Private Sub CommandButton1_Click() On Error Resume Next With Me .TextBox3.Value = .TextBox1.Value * .TextBox2.Value End With End Sub