Türkçe Karakter Uyumlu Büyütme

Verilen değerin tüm harflerini Türkçe karakter uyumlu büyülten kullanışlı bir fonksiyondur.

[HTML]
Public Function ToUpper(byVal Str)
If Str <> "" Then
Result = null : Str = Trim(Str)
SplitStr = Split(Str," ")
For SS = 0 To uBound(SplitStr)
Result = Result &" "& UCase(Replace(Replace(SplitStr(SS),"ı","I",1,-1),"i","İ",1,-1))
Next
ToUpper = Trim(Result)
End If
End Function
[/HTML]

__________________
proxyer