Text Box validation

[CC801340]

I'm sure its extremely simple but I'm after some code which will check the string entered into a form textbox for a valid email address and warn the user if a valid email address is not entered.

The textbox will be empty at times and so an empty string should be ignored.

Many thanks in advance

 

[AskMan]

Try this


Private Sub TexteBox_BeforeUpdate(Cancel As Integer)
if TexteBox ... is not valid ... then
Cancel = True
End If
End Sub