Validating data with Flat File Checker

Public Class TableNameException
    Inherits System.Exception
    Private _table As Table

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub
    Public Sub New(ByVal message As String, ByVal innerException As Exception)
        MyBase.New(message, innerException)
    End Sub
    Public Sub New(ByVal message As String, ByVal table As Table)
        MyBase.New(message)
        _table = table
    End Sub
    Public Overrides ReadOnly Property Message() As String
        Get
            Return MyBase.Message
        End Get
    End Property
End Class