VBA Pursperceper Первая буква каждого слова
MsgBox StrConv("it is nice", vbProperCase)
VasteMonde
MsgBox StrConv("it is nice", vbProperCase)