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