essa e a minha função.

---------------------------------------------------------------

função no modulo
============================================
Public Sub Errou(numerro As Integer, descerro As String)

    If Err.Number >= 0 Then
    Dim f As Byte
    Dim s As String
        s = Now & vbTab & numerro & vbTab & descerro & vbTab & Erl
        f = FreeFile
         Open "Erro.txt" For Append As f
        Print #f, s
        Close #f
    End If

------------------------------------------------------------

esse eu uso nas rotinas

On Error GoTo erro:

 

Exit Sub
erro:
Errou Err.Number, Err.Description
-----------------------------------

 

para saber qual o erro k deu basta fazer:

Err.Number 'Para seber o Numero

Err.Description 'Para saber a Descrição.

para escrever no ficheiro é só pegar um exemplo dos que se encontram na secção de Dicas

Olá! Dê uma olhada no exemplo que fiz. Qualquer dúvida pergunte.

 

Private LogFile As String 'Caminho do arquivo de log
Private Const ForReading As Byte = 1
Private Const ForWriting As Byte = 2
Private Const ForAppending As Byte = 8

 

Private Sub WriteLog(ByVal Number As Long, ByVal Message As String)
   
    Dim FSO As Object, TextFile As Object
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TextFile = FSO.OpenTextFile(LogFile, ForAppending, True)

 

    TextFile.WriteLine (Now & vbTab & Number & vbTab & Message)
    TextFile.Close

 

    Set TextFile = Nothing
    Set FSO = Nothing

 

End Sub

 

Private Sub Form_Load() 'Gera um erro pra testar a rotina

 

    LogFile = App.Path & "app.log"

 

    On Error GoTo catch_exception
   
    Dim i As Integer
   
    i = 100 / 0
   
    Exit Sub
   
catch_exception:
    MsgBox ("Atenção houve um erro!" & vbCrLf & _
            "Número do erro: " & Err.Number & vbCrLf & _
            "Descrição do erro: " & Err.Description)
    WriteLog Err.Number, Err.Description
   
End Sub

 

Flw!