Assigning If function to a Shape instead of a Command button

[kiranturme]

I am trying to assign the following script to an Image as I do not want to use a command button. Upon running it gives me an "Object Required' error message. Kindly assist


Sub SaveForm()
If TextBox10.Text = "" Then
Cancel = 1
MsgBox "Please enter Contribution Ref # field before saving the form"
TextBox10.SetFocus
Exit Sub
End If
If TextBox36.Text = "" Then
Cancel = 1
MsgBox "Please enter Account # field before saving the form"
TextBox36.SetFocus
Exit Sub
End If