[Resolvidos]Impedir que o usuario digite valor decimal

Bom dia amigos do forum,

Tenho uma caixa de texto em um formulario onde

preciso criar uma condição para que se o usuário

digitar uma virgula, ele receba uma mensagem de

"Caractere inválido, digite novamente"

Alguem pode me dar uma dica?

Desde já Agradeço.

Private Sub Texto0_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 188 Then
MsgBox "Caractere inválido, digite novamente.", vbCritical
KeyCode = 0
Else
Exit Sub
End If

End Sub

Ou assim

Private Sub Campo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44
MsgBox "Caracter Inválido"
KeyAscii = 0
End Select

End Sub

Olá Jpaulo, como foi de férias,

Do seu modo não deu certo, será que é por o meu teclado

ser Português Brasileiro? De qualquer forma muito obrigado.

Assis, sua dica deu certo aqui, obrigado mesmo

Sds,

Tudo jóia Obrigado;

O meu teclado é Português Brasileiro e deu certo.

Eu utilizo bastante o KeyCode e nunca tive qualquer problema.

Mas resolvido é resolvido e isso é que é o importante.

Obrigado pelo seu retorno.

Valeu Pessoal,

Como se diz por ai,

a gente perde mais tempo cuidando de tratamentos

de erro , do que do aplicativo em si.

Resolvido, obrigado mais uma vez pela

ajuda.