Dim datum() As String = Nothing
    Dim dat As List(Of Date)
 
 
    Private Sub cut_dat()
        Dim a(2) As String
        Dim i As Integer
        For i = 0 To datum.Length() - 1
            a = datum(i).Split(",")
            dat.Add(Convert.ToDateTime(a(1).ToString()))
        Next i
    End Sub
 
    Public Sub New(ByVal datum() As String)
        InitializeComponent()
        Me.datum = datum
    End Sub

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.