Property XYZ() As DataTable, Aufruf von anderer Klasse bringt Fehler

In einer Klasse ABC wird eine Datatable erzeugt, welche in mehreren Formularen genutzt werden soll. Gefunden habe ich bisher, dass diese Aufgabe über eine Property gelöst werden kann. Trotz Recherche im Netz (und gefundenen Beispielen) fehlt mir als "VBA-Mensch" offensichtlich ein grundlegender Zugang zu OOP.
In einer Klasse (keine Form-Klasse) wird eine Tabelle erzeugt und als Property veröffentlicht wie folgt (DR("D4") = 8 dient zum Test:

Public Class C_ABC

Public DTL As DataTable
Property XYZ() As DataTable
Get
Return DTL
End Get
Set(ByVal value As DataTable)
DTL = value
End Set
End Property

Function DynamischeTabelle()
Dim DR As DataRow
Dim i As Byte
' --- Erzeugen einer dynamischen Tabelle
XYZ = New DataTable("Tabellenbezeichnung")
For i = 1 To 10
DTL.Columns.Add("D" & i, System.Type.GetType("System.Byte"))
Next i
For i = 1 To 2
DR = DTL.NewRow()
DR("D4") = 8
DTL.Rows.Add(DR)
Next i
DTL.Dispose()

END CLASS

Nun soll das Formular F_Start den Inhalt von XYZ nutzen, hier zur Anzeige von DT.Rows(1)("D4").

Public Class F_Start

Private Sub Btn_Datatable_Click(sender As System.Object, e As System.EventArgs) Handles Btn_Datatable.Click
Dim CA As New C_ABC
Dim DT As DataTable

DT = CA.DTL
MsgBox(DT.Rows(1)("D4").ToString)
End Sub

End Class

Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

Wenn ich aber
CA.DynamischeTabelle () in einer Zeile vor DT = CA.DTL ausführe, funktioniert es.
Wo liegt das Problem ?

Vielen Dank für jede Hilfe

PCFJKG

Public Sub New()
   DynamischeTabelle()
End Sub

XYZ = New DataTable("Tabellenbezeichnung")  

DTL = New DataTable("Tabellenbezeichnung")  

Public Class C_ABC
    Private DTL As DataTable

    Public Sub New()
        DynamischeTabelle()
    End Sub

   Public Property XYZ() As DataTable
        Get
            Return DTL
        End Get
        Set(ByVal value As DataTable)
            DTL = value
        End Set
    End Property

    Private Sub DynamischeTabelle()
        Dim DR As DataRow
        Dim i As Byte
        ' --- Erzeugen einer dynamischen Tabelle  
        DTL = New DataTable("Tabellenbezeichnung")  
        For i = 1 To 10
            DTL.Columns.Add("D" & i, System.Type.GetType("System.Byte"))  
        Next i
        For i = 1 To 2
            DR = DTL.NewRow()
            DR("D4") = 8  
            DTL.Rows.Add(DR)
        Next i
    End Sub
End Class

   Private Sub Btn_Datatable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Datatable.Click
        Dim CA As New C_ABC
        Dim DT As DataTable
        DT = CA.XYZ
        MsgBox(DT.Rows(1)("D4").ToString)  
    End Sub