Поменять местами слова

[Kot070]

Добрый день, в обычное поле на форме загружается переменная strFullName которая хранит в себе имя пользователя.
Загружается почему то в Василий Васильевич Пупкин а должно быть Пупкин Василий Васильевич.
Как то можно поменять местами слова или привести к нужному мне виду?

[Aleksandr H.]

пример базы с формой можно увидеть?

[Kot070]

Да, конечно

[Aleksandr H.]

Разделитель в имени только пробел? Например мой пользователь "Aleksandr H." в результате должен получиться "Н. Aleksandr"?

Function getNewUserName(UserName)
    Dim FirstSpace As Byte
    Dim LeftPart As String, RightPart As String
    FirstSpace = InStr(UserName, " ") - 1
    LeftPart = Left(UserName, FirstSpace)
    RightPart = Right(UserName, Len(UserName) - Len(LeftPart) - 1)
    getNewUserName = RightPart + " " + LeftPart
End Function

Forms![tst].users = getNewUserName(strFullName)

upd. как вариант

Function getNewUserName(UserName)
    With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "(\w+)(\s)([a-zA-Z0-9_. ]+)"
     If .Test(UserName) Then UserName = .Replace(UserName, "$3$2$1")
    End With
    simpleRegex2 = UserName
End Function

если подключить Microsoft VBScript Regular Expressions 5.5

[Kot070]

как Вы делаете такие крутые штуки? я тоже так хочу

[Aleksandr H.]

Главное заинтересованность и практика