Yaptığımız bir işe lazım oldu bir cümleyi kelimelerin ilk harfleri büyük şekilde yazdırmamız gerekti. uzun aramalar sonucunda bir yabancı sitede buldum denedim sorunsuz çalışıyor

Function Convert(metin)

Splitter = " "
If metin <> "" Then
xarr = Split(metin, Splitter)
For i = 0 To UBound(xarr)
xmetin = Trim(xarr(i))
If xmetin <> "" Then
xmetin = LCase(xmetin)
xstletter = UCase(Left(xmetin,1))

xstletter = Replace(xstletter,"i","İ", 1, -1) 'Y
xmetin = Right(xmetin, Len(xarr(i)) - 1)

xmetin = Replace(xmetin,"İ","i", 1, -1) 'Y
xmetin = xstletter & xmetin
End If
zmetin = zmetin & " " & xmetin
Next
End If
Convert = zmetin

end function