Нормализация строки (Уборка переводов строки + Первый символ Заглавным)

Public Function NormalSTR(vValue As Variant) As Variant
Dim s$
    On Error GoTo NormalSTR_Error
    s = CStr(vValue)
    s = Replace(s, vbCrLf, "") 'Замещение переводов строки
    s = UCase(Mid(s, 1, 1)) & Mid(s, 2) 'первую букву к верхнему регистру
    NormalSTR = s
    
    On Error GoTo 0
    Exit Function
 
NormalSTR_Error:
    NormalSTR = vValue
    'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure NormalSTR, line " & Erl & "."
 
End Function