Ayuda para manejador de errores

[RoyMalcolm]

Saludos compañeros de verdad me ha sido util toda la ayuda q he recibido de uds gracias pero en esto de programacion y vb6.0 estoy aprendiendo y aqui tengo otra incognita

como puedo crear un manejador de errores.. Lo que quiero es lo siguiente

tengo un textbox en el que solamente quiero q se introduscan montos en bolivares (moneda venezuela)

si el usuario en el textbox ingrasa una letra que salga un msj de error diciendo q no puede ingresar caracteres alfabeticos.-.

De antemano como siempre les doy las gracias a todos los q me ayuden

[pkj]

No es control de errores. Es filtrar la entrada del teclado.
Siendo un textbox lo más fácil es usar el evento keypress.

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If UCase$(Chr(KeyAscii)) <> LCase$(Chr(KeyAscii)) Then
    KeyAscii = 0
    MsgBox "No se admiten letras"
  End If
End Sub
 

Este código filtra las letras, pero permite otros caracteres.

Puedes simplificar decidiendo tú los únicos caracteres que quieres permitir.
Sería algo así:

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If InStr(1, "0123456789-+*/", Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
    MsgBox "Carácter no permitido"
  End If
End Sub
 

Saludos

[RoyMalcolm]

GRACIAS PKJ ME RESULTO BASTANTE PERO AHORA OK EN EL PRIMER CODIGO Ç

Private Sub Text1_KeyPress(KeyAscii As Integer)
If UCase$(Chr(KeyAscii)) <> LCase$(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "No se admiten letras"
End If
End Sub

NO ME DEJA INGRESAR LETRAS PERO SI ESTOS CARACTERES (/*-@##) COMO HAGO PARA QUE SOLO ACEPTE (0123456789.)EN EL SEGUNDO CODIGO

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(1, "0123456789-+*/", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
MsgBox "Carácter no permitido"
End If
End Sub
ENE STE LO HACE BN PERO CUANDO NO ME DEJA BORRAR EL TEXTBOX , TECLEO BORRAR Y LO TOMA COM SI FUERA UNA LETRA

[pkj]

Solo tienes que agregar las teclas que si quieres admitir. Si no son caracteres puedes usar las constantes del VB.

If InStr(1, "0123456789.", Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack Then
KeyAscii = 0
MsgBox "Carácter no permitido"
End If

[RoyMalcolm]

pkj de nuevo muchas gracias por tu ayuda