Atrapar error 13 como lo hago?

[byte]

Holas a todos y como les va en este dia...
Nesecito saber como es que puedo hacer para atrapar ese "Error 13 en tiempo de ejecucion, no coinciden los tipos" , como pedo hacer para que si se produce ese error me muestre un msgbox con algo escrito y no se cierre el programa?
gracias de antemano.
salu2
byte

<table align="center"><tr><td class="arriba">Si ves las manecillas a cada rato, perderás los segundos... </td><td><div align="right"><img src="http://www.animaniacos.com/graficos/gifanim/gente/personaj/dibus/dibu0043.gif"></div></td></tr></table>

[urjose]

Tal vez puedas usar

On error Resume Next
'Lo anterior puede ir al principio de tu form

If Err.Number&gt;0 Then
Msgbox &quot;Error: &quot;,vbcritical
End If

No recuerdo mucho de Visual Basic

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[byte]

Holas Aston, gracias por tu ayuda, te comento que me atrapa el error y no se me cierra el programa, pero no me muestra el msgbox cuando tendria que hacerlo, se te ocurre mas o menos que es lo que falla? por favor hazmelo saber.
salu2
byte

<table align="center"><tr><td class="arriba">Si ves las manecillas a cada rato, perderás los segundos... </td><td><div align="right"><img src="http://www.animaniacos.com/graficos/gifanim/gente/personaj/dibus/dibu0043.gif"></div></td></tr></table>

[byte]

PERDON PORFAVOR URJOSE, NO QUISE CAMBIARTE EL NOMBRE, ES QUE YA DEBEN SER UNAS 49 HORAS SIN DORMIR Y ESTOY RE OPA. PERDON. =:-o

<table align="center"><tr><td class="arriba">Si ves las manecillas a cada rato, perderás los segundos... </td><td><div align="right"><img src="http://www.animaniacos.com/graficos/gifanim/gente/personaj/dibus/dibu0043.gif"></div></td></tr></table>

[byte]

ya he averiguado un poquillo mas y para los que lo necesiten aqui va:
on local error resume next
If Err.number Then
MsgBox &quot;Se ha producido el siguiente error:&quot; &amp; vbCrLf &amp; _
Err.number &amp; &quot;, &quot; &amp; Err.Description &amp; &quot;.&quot; &amp; vbCrLf &amp; &quot;mensaje&quot;End If
gracias urjose y mil perdones de nuevo.
salu2
byte