Нормализация строки (ВАСЯ ПЕТРОВ = Вася Петров)

Public Function NormalString(val As Variant) As Variant

'Нормализация строки (ВАСЯ ПЕТРОВ = Вася Петров)

Dim i As Integer

Dim x As Integer

Dim cLet As String * 1

Dim lLet As String * 1

On Error GoTo NormalStringErr

For i = 1 To Len(val)

cLet = Mid(val, i, 1)

If i = 1 Or lLet = " " Or lLet = "" Then

NormalString = NormalString & UCase(cLet)

Else

NormalString = NormalString & LCase(cLet)

End If

lLet = cLet

Next i

Exit Function

NormalStringErr:

NormalString = Null

End Function