Приведение полного Ф.И.О. к формату (фамилия - инициалы)

Аргументы: strFIO - строка содержащая полное Ф.И.О. человека
Назначение: Перевод Ф.И.О. в фамилию и инициалы
Возвращает: Измененное Ф.И.О. например (Егоров Дмитрий Александрович) преобразует в (Егоров Д.А.)

Function FamIO(strFIO As String)
Dim strSubS As String
Dim lngPos As Long

If IsNull(strFIO) Then Exit Function
strSubS = Trim(strFIO)
lngPos = InStr(strSubS, " ")
FamIO = FamIO & Mid(strSubS, 1, lngPos - 1)
strSubS = LTrim(Mid(strSubS, lngPos))
lngPos = InStr(strSubS, " ")
FamIO = FamIO & " " & Left(strSubS, 1) & ". "
strSubS = LTrim(Mid(strSubS, lngPos))
FamIO = FamIO & Left(strSubS, 1) & ". "
End Function