"The eventlog "Enterprise Vault" on computer "SERVER" does not exist. Get" & _
  "general help for this exception."

Sub Main()
        Dim strServer As String = "SERVER01"
        ' Dim strServer As String = System.Environment.MachineName
        ' Log type can be Application, Security, System or any other custom log
        ' Select the log type you want to read
        Dim logtype As String = "Enterprise Vault"
 
        ' In the constructor of the eventlog, pass the log type and the 
        ' computer name 
        ' from which you want to read the logs 
        Dim evtLog As New EventLog(logtype, strServer)
 
        Dim lastlogtoshow As Integer = evtLog.Entries.Count
        If lastlogtoshow <= 0 Then
            Console.WriteLine("There are no event logs in the log : " & logtype)
            Exit Sub
        End If
 
        ' Read the last record in the specified log 
        Dim currentEntry As EventLogEntry
        Dim i As Integer
        ' Show Last 2 entries. You can similarly write the log to a file.
        For i = evtLog.Entries.Count - 1 To lastlogtoshow - 2 Step -1
            currentEntry = evtLog.Entries(i)
            Console.WriteLine("Event Id is : " & currentEntry.EventID)
            Console.WriteLine("Entry type is : " & _
              currentEntry.EntryType.ToString())
            Console.WriteLine("Message is :  " & currentEntry.Message & vbCrLf)
        Next
        evtLog.Close()
 
        Console.WriteLine("Press any key")
        Console.ReadKey()
    End Sub