MS Errorhandling eventlogger

app/DDWDResultHandler/clsLogger.vb

@@ -5,6 +5,7 @@ Public Class clsLogger
     Public Shared LogFilename As String
     Private Shared logErr_name As String
     Private Shared log_string As String
+    Private Shared Inited As Boolean = False
     Public Shared Function Init(ByVal speicherort As String, ByVal prefix As String)
         Try
             'Den Speicherort festlegen
@@ -41,6 +42,7 @@ Public Class clsLogger
                 Return False
             End Try
             'Alles Ok 
+            Inited = True
             Return True
         Catch ex As Exception
             LogEscalation_Error("Unexpected Error in init Logger - Error: " & ex.Message)
@@ -74,6 +76,9 @@ Public Class clsLogger
         LogPath = My.Application.Info.DirectoryPath & "\Log\"
     End Sub
     Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
+        If Inited = False Then
+            Exit Sub
+        End If
         Dim msg As String
         If log_string <> "" Then
             log_string &= vbNewLine
@@ -89,6 +94,9 @@ Public Class clsLogger
         log_string &= msg
     End Sub
     Public Shared Sub AddError(ByVal error_string As String, Optional ByVal Funktion As String = "")
+        If Inited = False Then
+            Exit Sub
+        End If
         Try
             'Zuerst mal die Details schreiben
             WriteLog()
@@ -120,6 +128,9 @@ Public Class clsLogger
     End Sub
 
     Public Shared Sub AddDetailLog(ByVal text As String)
+        If Inited = False Then
+            Exit Sub
+        End If
         Try
             If LOG_ERRORS_ONLY = False Then
                 If log_string <> "" Then