| Validate Email Address |
 |
 |
 |
| Tutorials | |||||||||||
| Written by Administrator | |||||||||||
|
[code] 'This function checks if a email address is entered correctly.
'It returns a false statement if the address is not correct
Function CheckEmailAdres(ByVal email As String) As Boolean
CheckEmailAdres = True
If InStr(email, "@") = 0 Or _
InStr(email, ".") = 0 Or _
Len(email) < 7 Then
CheckEmailAdres = False
End If
End Function
[/code]
|
