Wednesday, March 31, 2010

Validate Email ID

Private Function ValidateEmailID(ByVal GetEmailID As String) As Boolean
If GetEmailID.IndexOf("") > -1 And GetEmailID.LastIndexOf(".") > -1 And GetEmailID.LastIndexOf(".") <> (GetEmailID.Length - 1) Then
Return True
Else
Return False
End If
End Function

No comments:

Post a Comment