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

Аргументы: 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


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=8876