TextBox Türkçe karakter engelleme

[siar]

Formumdaki textbox lara Türkçe karakter girilmesini engellemek istiyorum. Nasıl yapabilirim?

 

[metinozlu]

Böyle bir kod belki olabilir.
Private Sub TextBox1_Change()
TextBox1.Value = Replace(TextBox1.Value, "ş", "s")
TextBox1.Value = Replace(TextBox1.Value, "ü", "u")
TextBox1.Value = Replace(TextBox1.Value, "ö", "o")
End Sub

 

[siar]

Gayet iyi oldu. Teşekkür ederim metin bey.