'Formunuzda txEmail adlı bir text box olsun. Bu text boxtan email adres'girişi yapılıyor. Bu kod hem küçük harfe çevirir hemde türkçe karakterleri halleder.
Private Sub txEmail_change()
txEmail = Replace(LCase(txEmail), "ı", "i")
txEmail = Replace(LCase(txEmail), "İ", "i")
txEmail = Replace(LCase(txEmail), "I", "i")
txEmail = Replace(LCase(txEmail), "ğ", "g")
txEmail = Replace(LCase(txEmail), "ü", "u")
txEmail = Replace(LCase(txEmail), "ş", "s")
txEmail = Replace(LCase(txEmail), "ö", "o")
txEmail = Replace(LCase(txEmail), "ç", "c")
End Sub