Public Class Result
    Property Text As String
    Property Type As Common.Common.JournalEntryType

    Public Sub New()
        Text = "no text set until now"
        Type = Common.Common.JournalEntryType.Information
    End Sub

    Public Sub New(ByVal text As String, ByVal type As Common.Common.JournalEntryType)
        Me.Text = text
        Me.Type = type
    End Sub
End Class