TextBox não aceita acento nas palavras.

[Edson_csi]

Bom dia!

Tenho um caixa de texto em um form e coloquei um código para que possa ser inserido apenas caracteres de texto e não números.

Acontece que quando tento acentuar as palavras ele não aceita.

Será que tenho que liberar acento por acento?

O código é esse:

Private Sub txtNome_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case vbKeyDelete

Case vbKeyBack

Case vbKeySpace

Case 65 To 90

Case 97 To 122

Case Else

Beep

KeyAscii = 0

End Select

End Sub

[Edson_csi]

Obrigado pessoal, mas já resolvi o problema.

Pra quem quiser o código é esse:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then

KeyAscii = 0

End If

End Sub

[Schramm]

Daria para ver se é IsNumeric também , mas você já fez desta forma já ta show também!