Маска для поля типа Фамилия И.О.

Replace(StrConv(Replace(<фамилия>,"-"," - "),3)," - ","-")

? Replace(StrConv(Replace("мельников-печерский","-"," - "),3)," - ","-")
Мельников-Печерский
? Replace(StrConv(Replace("мельников печерский","-"," - "),3)," - ","-")
Мельников Печерский
? Replace(StrConv(Replace("мельников","-"," - "),3)," - ","-")
Мельников

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)
    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