Visual Basic - Manejador de Errores

Hola amigos:
La pregunta es simple, aunque la respuesta pueda ser compleja....
¿cómo hago para crear un manejador de errores en visual basic 6?

desde ya muchas gracias por la data.

Private Sub Comosellame
On Error Goto Errores
dsfl dgd lfdg
dfg kñdf gñdfk g
dfgd lfñ gñdfg
d gñdfgkd fgñ
Exirt Sub ' para que si no hay errores no siga
:Errores
Select Case Err.Number

Lo siento, no se donde di que se me escapo

Ojo a los dos puntos de Errores: son al final

Case 30542
msg("Se ha producido un error " & err.number & ", " & Err.Description)
exit sub o Resume next o resume 0

case

end select