En VB lo mandarías a una etiqueta:
On error Goto etiqueta
'
'
'
'
'
'
'puedes crear tu propio error
If condicion Then
err.raise vbObjectError + 5000, "Un error", "El error que quieras"
End If
Etiqueta:
lbl1.caption = "Error " & err.description
Pero en VBS, nunca he hecho algo así, aunque aqui hay un código tomado de Brinkster, que debiera funcionar no?
http://www.brinkster.com/CodeBank/Sh...pet.aspx?n2090
Salu2,