tratamiento de errores en VB

[^kazike^]

Hola:
Tengo un programa en VB y quiero que cuando se produzca un error se guarde un aviso en un archivo de texto, pero no se xq aunque la ejecucion sea correcta me aparece en el archivo que se ha producido un error, el codigo es este:

Código [Seleccionar] Expandir


Exit Function



runErr:

Dim msg$

    On Error Resume Next

    msg = "Error in run: " & Err.Description

    LogFile.WriteLine msg

    On Error GoTo runErr

    Resume Next

End Function


Se supone que si hay algun error el programa va a la etiqueta y guarda el error y continua con la ejecucion del programa no¿
Hay mas cido antes de la etiqueta pero creo q no es necesario ponerlo aqui
Gracias y Saludos

[Hans el Topo]

el tema va así.

Código [Seleccionar] Expandir

function blablbl() balbla
on error goto runerror
balblaballabbalabl
exit funcion
runerror:
      balblbab guardamos
      resume next
end function