Public Class Parser Public Delegate Function RWTCDelegate(ByVal p As Parser) As Boolean Public Handler As RWTCDelegate Public SomeItem As String Public Function ParseForTable() As Boolean Return ReplaceWithThisContent() End Function Public Overridable Function ReplaceWithThisContent() As Boolean If Not Handler Is Nothing Then Return Handler(Me) Else Return True End If End Function End Class Public Class ClassThatOverridesAParserMethod 'Dim loParser As Parser Public Function GetPage() As Boolean Dim loParser As Parser = New Parser() loParser.Handler = AddressOf RWTCOverride Return loParser.ParseForTable() End Function Function RWTCOverride(ByVal p As Parser) As Boolean 'Access the Parser e.g: Dim s As String = p.SomeItem Return False End Function End Class