WIP

EDIDocumentImport/FormHelpers.vb

@@ -0,0 +1,16 @@
+Imports DigitalData.Modules.Logging
+
+Public Class Message
+    Private Logger As Logger
+
+    Public Sub New(pLogConfig As LogConfig)
+        Logger = pLogConfig.GetLogger()
+    End Sub
+
+    Public Sub [Error](pException As Exception, pMessage As String)
+        Logger.Error(pException)
+        Dim oMessage As String = $"{pMessage}{vbNewLine}{vbNewLine}{pException.Message}"
+        MsgBox(oMessage, MsgBoxStyle.Critical, "Schwerwiegender Fehler")
+    End Sub
+
+End Class