Imports System.IO Public Class Exceptions Public Class MissingValueException Inherits ApplicationException Public ReadOnly File As FileInfo Public Sub New(File As FileInfo) MyBase.New() Me.File = File End Sub End Class Public Class TooMuchFerdsException Inherits ApplicationException Public Sub New() MyBase.New() End Sub End Class Public Class NoFerdsException Inherits ApplicationException Public Sub New() MyBase.New() End Sub End Class End Class