MS Fehlerhandling FormatString

app/TaskFlow/ClassWindream_allgemein.vb

@@ -30,14 +30,7 @@ Public Class ClassWindream_allgemein
     ''' </summary>
     ''' <remarks></remarks>
     Sub New()
-        ' wenn ein Fehler bei der Initialisierung auftrat
-        'If Not Me.Init() Then
-        '    ' Nachricht ausgeben
-        '    MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
 
-        '    ' das Programm "abschießen"
-        '    Process.GetCurrentProcess.Kill()
-        'End If
     End Sub
 
 
@@ -121,13 +114,9 @@ Public Class ClassWindream_allgemein
             Return True
 
         Catch ex As Exception
-LOGGER.Error(ex)
-            If Err.Number = -2147220985 Then
-                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine &
-                       "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
-            Else
-                MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
-            End If
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Login on windream")
+
             Return False
         End Try