Sortering af e-mail adresser

I et almindeligt kodemodul indsætter du følgende makro:

Public Function EmailCountry(ByRef sEmail As String) As String
    Dim sRetVal As String
    Dim lCount As Long
   
    For lCount = 1 To Len(sEmail)
        If InStr(lCount, sEmail, ".") = 0 Then
            sRetVal = Mid$(sEmail, lCount, Len(sEmail) - lCount + 1)
            Exit For
        End If
    Next lCount
   
    EmailCountry = sRetVal
End Function

Hvis du har emailen i A1
=EmailCountry(A1)

Denne formel kan vel også gøre det:

=MIDT(A1;FIND(".";A1;LÆNGDE(A1)-4)+1;LÆNGDE(A1)-D1+1)

ovenstående virker ikke....
=MIDT(A1;FIND(".";A1;LÆNGDE(A1)-4)+1;LÆNGDE(A1)-FIND(".";A1;LÆNGDE(A1)-4)+1)

=UDSKIFT(HØJRE(A1;3);".";"")

Det dutter ikke rigtigt.

Men som newbee indenfor regneark, er det så ikke "bare" et spørgsmål om at den sorter baglæns dataerne ?

Har fået det til at virke !

Takker