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