problema con beep

[psalm23]

hola amigos tengo un problema aqui esta el codigo

Código:

Private Sub numvertice_KeyPress(KeyAscii As Integer)

If InStr("0123456789" & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then KeyAscii = 0
If KeyAscii = 0 Then Beep
If KeyAscii = 13 Then
vertice.SetFocus
End If
End Sub

el codigo es para que un textbox solo acepte num enteros y si se preciona cualquier otra tecla mande un beep

lo que quiero es que al presionar enter no ocurra el beep ya que el codigo como esta hace que eso pase

ojala me puedan ayudar un saludo

[servantsoftware]

Entra aca: http://support.microsoft.com/kb/140882

[psalm23]

mmm no la verdad no me sirvio hai da una solucion pero me elimina por completo el beep pero gracias por tomarte la molestia