DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, "i", "İ")
TextBox1 = Replace(TextBox1, "ı", "I")
TextBox1 = StrConv(TextBox1, vbUpperCase)
End Sub