Imports System
Imports System.IO
 
Public Class Logfile
   Private file As String
   Private f As FileStream()
   Private w As StreamWriter()
 
   Public Sub New(ByVal path As String)
      If path <> "" Then
         file = path
         f = New FileStream(FileMode.OpenorCreate, FileAccess.Write, _
           FileShare.Read)
         w = New StreamWriter(f)
      End if
   End Sub
 
   Public Sub WriteEntry(ByVal message As String)
      w.WriteLine(Now.ToString() & " - " & message)
   End Sub
 
   Public Sub Close()
      If Not (w Is Nothing) Then w.Close
      If Not (f Is Nothing) Then f.Close()
   End Sub
End Class

' Methode, die Fehler verursacht
Try
   ' ...
Catch ex As Exception
   LogfileInstanz.WriteEntry(ex.Message)
End Try

Ralf