Function BuyukHarf(metin)
splitter = " "
If metin <> "" Then
	xarr = Split(metin, splitter)
	For z = 0 to Ubound(xarr)
		xmetin = Trim(xarr(z))
		If xmetin <> "" Then
		xmetin = Lcase(xmetin)
		xstletter = Ucase(Left(xmetin,1))
			'// Dilinize göre ayarlayın
			xstletter = Replace(xstletter,"i","İ", 1, -1) '&Yacute;
		xmetin = Right(xmetin, Len(xarr(z)) - 1)
			'// Dilinize göre ayarlayın
			xmetin = Replace(xmetin,"İ","i", 1, -1) '&Yacute;
		xmetin = xstletter & xmetin
	End if
		zmetin = zmetin & " " & xmetin
	Next
End if
buyukharf = zmetin
End Function