Arkadaşlar.
Metin kutusuna yazı yazarken her karakteri hemen büyük harfe çevirmenin yolu var mı? Normal biçimi > yaptığında büyük harf yapıyor fakat ben bıraktığım her karakteri anında büyütmesini istiyorum. İlginize şimdiden teşekkür ederim.

Dim metin, uce, UCaseEx, A
metin = Me.MetinKutusununAdı
For uce = 1 To Len(metin)
If Asc(Mid(metin, uce, 1)) = 105 Then metin = left(metin, uce - 1) & "İ" & Mid(metin, uce + 1)
If Asc(Mid(metin, uce, 1)) = 253 Then metin = left(metin, uce - 1) & "I" & Mid(metin, uce + 1)
Next uce
uce = 0
UCaseEx = UCase(metin)
Me.MetinKutusununAdı = Trim(UCaseEx)
Private Sub TextBox3_Change()
Me.TextBox3 = UCase(Replace(Me.TextBox3, "i", "İ"))
End Sub