Function ectContForm_OnSubmit()

  ectContForm_OnSubmit = False
  
  Set ectForm = Document.ectContForm

  If Trim(ectForm.ectUserName.value) = "" Then
    MsgBox "Name Is Required", vbInformation, "Need Input"
    ectForm.ectUserName.Focus
  ElseIf Trim(ectForm.ectUserEmail.value) = "" Then
    MsgBox "Email Address Is Required", vbInformation, "Need Input"
    ectForm.ectUserEmail.Focus
  ElseIf Trim(ectForm.ectMessBody.value) = "" Then
    MsgBox "Message Is Required", vbInformation, "Need Input"
    ectForm.ectMessBody.Focus
  Else
    ectContForm_OnSubmit = True
  End If
  
End Function