Public Function ParseEmail_Host(Email As String) As String
'Purpose
'   Used to parse the host name from a standard e-mail address.
'Parameters
'   Email (String) = The email address to parse.
'Return (String)
'   Returns the host name contained within the specified e-mail address.
'   Returns a zero-length string if:
'       - Email has not "at" sign (@), or
'       - Email has no text beyond the "at" sign (@), or
'       - Email is a zero-length string.
'Version History
'   1.0 2/11/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_Host = ""

'Get a pointer to the first-occuring "at" sign (@)
p = InStr(Email, "@")

'Trap: There is no "at" sign (@) in Email, return a zero-length string and exit now
If p = 0 Then Exit Function

'Trap: Email has no text beyond the "at" sign (@)
If p = Len(Email) Then Exit Function

'Return everything to the right of the "at" sign (@)
ParseEmail_Host = Mid(Email, p + 1)

End Function