Extracting First and Last Name from Email address

[Hobolord]

I currently have the below code that gives me the first name of someone from their email (assuming their email is in the format Firstname.Lastname@Email.com).

Sub Email ()

Dim EmailAddress    As String
Dim Name               As String

EmailAddress = Sheets("Detail").Range("A3").Value

        Position = 0
        Char = "Z"
        Do Until Char = "."
            Position = Position + 1
            Char = Mid(EmailAddress, Position, 1)
        Loop
        NameL = Position - 1
        Name = Left(EmailAddress, NameL)
        
Msgbox (Name)

End Sub

I need to also have a way to get the last name, and I'm terrible with the mid function. Would anyone be able to assist with the VBA code that would be able to provide the last name from an email address in the format Firstname.Lastname@email.com?
Thank you in advance!

Edit: Formatting

 

[Joe4]

Loops are not necessary. Just use the InStr function to look to find where the period and @ symbol occur.

Try this:

Sub Email()

Dim EmailAddress As String
Dim FirstName As String
Dim LastName As String
Dim Period As Long
Dim At As Long

EmailAddress = Sheets("Detail").Range("A3").Value

'Find location of Period and At symbol in email address
Period = InStr(EmailAddress, ".")
At = InStr(EmailAddress, "@")

FirstName = Left(EmailAddress, Period - 1)
LastName = Mid(EmailAddress, Period + 1, At - Period - 1)

MsgBox "First Name: " & FirstName & vbCrLf & _
        "Last Name: " & LastName

End Sub