Forkorte navne

Så skal fornavn vel forkortes hvis for- og efternavn > 25 tegn?

Skulle nok kunne lade sig gøre via VBA.

Eksempel m/valgte navn, men der skal lidt mere styring afh. af antal mellemnavne:

Dim navneDele As Variant, navn As String, forkortetNavn As String
Sub forkortNavn()
    navn = "Stephanie Thyregod Bo Kristensen"
    If Len(navn) > 25 Then
        navneDele = Split(navn, " ")
        antalOrd = UBound(navneDele)
        forkortetNavn = navneDele(0) & " " & Left(navneDele(1), 1) & ". " & Left(navneDele(2), 1) & ". " & navneDele(3)
    End If
End Sub