Get The Full Internet Name (Xxx@Yyy.Com)

Function GetInternetFullName(fromString As String) As String
Dim pos As Integer
Dim full As String

'---------- Look for parenthesis e.g. poleary@iris.com ("Peter O'Leary")
pos = Instr(fromString, "(")
If pos = 0 Then
'----------- no parens, just get the username
pos = Instr(fromString, "@")
full = Trim(Left(fromString, pos - 1))
Else
full = Mid(fromString, pos + 1)
'----------- If the string is quoted, get everything in the quotes
If Left(full, 1) = """" Then
full = Mid(full, 2)
pos = Instr(full, """")
Else
pos = Instr(full, ")")
End If

full = Left(full, pos - 1)
End If
GetInternetFullName = full
End Function

Download this free guide

Download: IT certifications that stand out

Are you looking to advance your career? Expand your knowledge? Boost your credibility? Our editors put together this complimentary 19-page guide on everything you need to know about obtaining an IT certification—with special attention given to cloud and desktop certifications.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.

You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.