büyük harf yazma'da problem

[İhsan Tank]

s.a. arkadaşlar
şu an ki pc'de textbox'a büyük harf yazdığım İ harfini tanımıyor I harfi olarak yazıyor bunu nasıl düzeltebilirim.
büyük harf yazma kodu

TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")

bu.
umarım kolay bir çözümü vardır.
başka pc'de normal çalışıyor

 

[Necdet]

Merhaba İhsan bey,

Ben şöyle kullanıyorum :

Private Sub TextBox1_Change()
    TextBox1.Value = BuyukHarf(TextBox1.Value)
End Sub

Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

 

[İhsan Tank]

Merhaba İhsan bey,

Ben şöyle kullanıyorum :

Private Sub TextBox1_Change()
    TextBox1.Value = BuyukHarf(TextBox1.Value)
End Sub

Function BuyukHarf(Veri As String)
    BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))
End Function

hocam çok teşekkür ederim.
Allah razı olsun