If InStr([txtSendTo], "@") <> 0 And InStr([txtSendTo], ".") <> 0 Then
txtMessageSubject.Visible = True
txtMessageText.Visible = True
lblInstructions.Caption = "Please Enter a Subject and Message For The Email, Then Click Send."
cmdSend.Visible = True
chkStatus.Visible = True
txtStatus.Visible = True
Else
lblInstructions.Caption = "You Must Include an '@' Symbol and a Full Stop (.) To Proceed."
txtMessageSubject.Visible = False
txtMessageText.Visible = False
cmdSend.Visible = False
chkStatus.Visible = False
txtStatus.Visible = False
End If