Parse out domain and top level domain from email address

How to?

Option Explicit

Sub Test()
    Debug.Print getDomainOutOfEmail("gor.dol@xyz.net")
    Debug.Print getTopLevelDomainOutOfEmail("gor.dol@xyz.net")
End Sub

Public Function getDomainOutOfEmail(inEmail As String) As String
    'getDomainOutOfEmail = Mid(inEmail, InStrRev(inEmail, "@") + 1, InStrRev(inEmail, ".") - InStrRev(inEmail, "@") - 1) ' siol
    getDomainOutOfEmail = Mid(inEmail, InStrRev(inEmail, "@") + 1, Len(inEmail)) ' siol.net
End Function

Public Function getTopLevelDomainOutOfEmail(inEmail As String) As String
    getTopLevelDomainOutOfEmail = Mid(inEmail, InStrRev(inEmail, ".") + 1, Len(inEmail)) ' net
End Function