Tratando erros no Visual Basic 6

ExceptionSample.vb

Sub InitializeMatrix(Var1, Var2, Var3, Var4)

On Error GoTo ErrorHandler

     ' algum codigo aqui

Exit Sub

ErrorHandler:

     ' rotinas executadas caso ocorra alguma excecao, eh possivel 
     ' recuperar informacoes da excecao atraves das propriedades 
     ' presentes na classe Err, tais como: 
     ' Err.Number e Err.Description

Resume Next

End Sub

' Eh possivel forcar o lancamento de um erro de execucao em 
' runtime da seguinte forma:
'    On Error GoTo 0
'    Err.Raise E_NOTIMPL