Private Sub form_load()
Dim playlist() As Variant
Dim i As Long
Dim t As Long
Dim listcount As String
Dim zei As String
zei = Form1.zeile
 ReDim playlist(Form1.MSFlexGrid1.Rows - Form1.zeile)
For i = Form1.zeile To Form1.MSFlexGrid1.Rows - 1
       playlist(t) = Form1.MSFlexGrid1.TextMatrix(zei, 2)
            zei = zei + 1
 
Next
 
 
 
End Sub