Imports System.IO
Imports System
Imports System.Diagnostics
 
 
Module Module1
 
    Sub Main()
        '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
        For i = myCount - 5 To myCount - 1
            Dim myLogEntry As EventLogEntry = myLogEntryCollection(i)
            If myLogEntry.EntryType.ToString().Equals(myEventType) 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 & "#")
                sWriter.Close()
                Return
            End If
        Next
    End Sub
 
End Module