Ertem Erdoğan

Function UCaseByGANSH(buyutulecek_metin As String) As String
Dim Buyuk_Harf As String
For i = 1 To Len(buyutulecek_metin)
Buyuk_Harf = Mid(buyutulecek_metin, i, 1)
If Asc(Buyuk_Harf) > 91 Then
If Buyuk_Harf = "i" Then
Buyuk_Harf = "İ"
ElseIf Buyuk_Harf = "ı" Then
Buyuk_Harf = "I"
Else
If Asc(Buyuk_Harf) > 198 And Asc(Buyuk_Harf) < 223 Then
Buyuk_Harf = Buyuk_Harf
Else
Buyuk_Harf = Chr(Asc(Buyuk_Harf) - 32)
End If
End If
End If
UCaseByGANSH = UCaseByGANSH & Buyuk_Harf
Next i
End Function