strComputer = "Name"
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colLoggedEvents = objWMIService.ExecQuery( _
        "Select * from Win32_NTLogEvent Where SourceName = 'Anwendung")
    ' nächste Zeile auskommentiert wegen Fehlern
    ' result(0 To colLoggedEvents.Count)
On Error GoTo 0
 
    i = 0
    For Each objEvent In colLoggedEvents
        ' Ausgabe in Array ersetzt durch direkte Ausgabe in MsgBox zum testen
        ' result(i) =
        MsgBox objEvent.message
        i = i + 1
    Next