Public Function ParseEmail_User(Email As String) As String
'Purpose
'   Used to parse the user name from a standard e-mail address.
'Parameters
'   Email (String) = The email address to parse.
'Return (String)
'   Returns the user name contained within the specified e-mail address.
'   Returns the entire string if:
'       - Email contains no "at" sign (@).
'   Returns a zero-length string if:
'       - Email has no text before the at sign (@), or
'       - Email is a zero-length string.
'Version History
'   1.0 RFT
'---

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

'Default return value
ParseEmail_User = ""

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

'Trap: There is no "at" sign (@) in Email, return the entire string and exit now
If p = 0 Then
    ParseEmail_User = Email
    Exit Function
End If

'Trap: Email has no text before the "at" sign (@), return "" and exit now
If p = 1 Then Exit Function

'Return everything before the "at" sign (@)
ParseEmail_User = Left(Email, p - 1)

End Function