Function SaOwnerContForm_OnSubmit()

     SaOwnerContForm_OnSubmit = False

     Set saForm = Document.SaOwnerContForm

     If Trim(saForm.saName.value) = "" Then
       MsgBox "Your Name is Required", vbInformation, "Need Input"
       saForm.saName.Focus
     ElseIf Trim(saForm.saEmail.value) = "" Then
       MsgBox "Your Email Address is Required", vbInformation, "Need Input"
       saForm.saEmail.Focus
     ElseIf Trim(saForm.saMessBody.value) = "" Then
       MsgBox "Message Body is Required", vbInformation, "Need Input"
       saForm.saMessBody.Focus
     Else
       SaOwnerContForm_OnSubmit = True
     End If
     
End Function