VBA Großbuchstaben Erster Buchstabe jedes Wortes

MsgBox StrConv("it is nice", vbProperCase)
VasteMonde