'StreamWriter schreibt in C:\......
        Dim FStream As New FileStream("D:\logFile.txt", FileMode.Open.Append)
        Dim sWriter As New StreamWriter(FStream)
        'Art des Events ob Error/Information oder Warning
        Dim myEventType As String = "Error"
        'Hier wird das Eventlog angegeben ob SYSTEM/APPLIKATION oder SECURITY
        Dim myEventLog As New EventLog("System", ".")
        Dim myLogEntryCollection As EventLogEntryCollection = myEventLog.Entries
        Dim myCount As Integer = myLogEntryCollection.Count
        Dim i As Integer
        Dim z = 5
        For i = myCount - 1 To 0 Step -1
            Dim myLogEntry As EventLogEntry = myLogEntryCollection(i)
            If myLogEntry.EntryType.ToString().Equals(myEventType) And z > 0 Then
                Console.WriteLine(myLogEntry.TimeGenerated.ToString & " " & _
                  myLogEntry.Source & myLogEntry.EntryType.ToString())
                sWriter.WriteLine("")
                sWriter.WriteLine(myLogEntry.EntryType.ToString & " " & _
                  myLogEntry.TimeGenerated.ToString & " " & myLogEntry.Source & _
                  " #" & myLogEntry.Message & "#")
                Console.WriteLine(i)
                z = z - 1
            End If
        Next i
        sWriter.Close()