Länge von Namen

Wie eruire ich aus Name und Vorname am besten den Vorname (am Beispiel Abächerli Florentin den Vornamen "Florentin". Auf Umwegen bin ich auf folgende Lösung gestossen.

Bestimmt gibt es eine bessere. Vielen Dank

Dim txt1, txt2, txt3, Passwort
txt1 = InStr(1, "Abächerli Florentin, " ")
txt2 = Len(Trim("Abächerli Florentin))
txt3 = sLen - txt1
Passwort = Right("Abächerli Florentin", txt1)

Gregor