Преобразование первой буквы слова строки в прописную

Public Function NormalString(val As Variant) As Variant
'Нормализация строки (ВАСЯ ПЕТРОВ или вася петров = Вася Петров)
'Для исправления ввода Имён, Фамилий (в т.ч. и двойных: морозов-пупкин = Морозов-Пупкин)
'--------------------------------------------------------------------------
On Error GoTo NormalString_Err
Dim v As Variant
    If InStr(1, val, "-") > 0 Then
        v = Replace(val, "-", " - ")
        v = StrConv(v, 3)
        NormalString = Replace(v, " - ", "-")
    Else
        NormalString = StrConv(val, 3) '3 = vbProperCase
    End If
 
NormalString_End:
    On Error Resume Next
    Exit Function
 
NormalString_Err:
    NormalString = val 'Null
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NormalString, line " & Erl & ".", vbCritical
    Err.Clear
    Resume NormalString_End
End Function

Dim v As Variant

val = Trim(val)

? NormalString("скаРЛетТ о'хара")
Скарлетт О'хара
 
? NormalString("джером к.джером")
Джером К.джером

Function Func_FirstLetterUpperCase(S As Variant) As String
 Dim RE As Object, _
     M As Object
 Dim i As Integer, _
     j As Integer
 S = " " & StrConv(S, vbLowerCase)
 Set RE = CreateObject("VBScript.RegExp")
 RE.Global = True
 RE.Pattern = "[^a-z|а-я][a-z|а-я]"
 Set M = RE.Execute(S)
 If M.Count > 0 Then
  For i = 0 To M.Count - 1
   j = InStr(S, M(i))
   Mid(S, j, 2) = StrConv(M(i), vbUpperCase)
  Next
 End If
 Func_FirstLetterUpperCase = Trim(S)
End Function

? Func_FirstLetterUpperCase("скаРЛетТ о'хара")
Скарлетт О'Хара
 
? Func_FirstLetterUpperCase("джером к.джером")
Джером К.Джером
 
? Func_FirstLetterUpperCase("dddd    gggg   зззз  ж ц/h w")
Dddd    Gggg   Зззз  Ж Ц/H W