Public Function ParseEmail_TLD(Email As String) As String
'Purpose
'   Used to parse the top-level-domain name from a standard e-mail address.
'Parameters
'   Email (String) = The email address to parse.
'Return (String)
'   Returns the top-level-domain contained within the specified e-mail address.
'   Returns a zero-length string if:
'       - Email contains no period, or
'       - Email has no text beyond the final period, or
'       - Email is a zero-length string.
'Version History
'   1.0 1/21/2005 Tested by Russ Tanner
'---

'Initiate variables
Dim p As Integer 'pointer to the period so we can parse the TLD

'Default return value
ParseEmail_TLD = ""

'Get a pointer to the last-occuring period
p = InStrRev(Email, ".")

'Trap: There is no period in Email, return a zero-length string and exit now
If p = 0 Then Exit Function

'Trap: Email has no text beyond the final period
If p = Len(Email) Then Exit Function

'Return everything to the right of the period
ParseEmail_TLD = Mid(Email, p + 1)

End Function