Namespace Exceptions

    Public Class MaterialException
        Inherits Exception

        Public Sub New()
            MyBase.New
        End Sub
        Public Sub New(message As String)
            MyBase.New(message)
        End Sub
    End Class

End Namespace