Dim data(1 To 20) As String
    Dim getdata(1 To 20) As String
    Dim i As Integer
 
    For i = 1 To 20
        data(i) = CStr(i) + ". Eintrag"
    Next i
 
    Open App.Path + "\test.txt" For Random As #1
    Put #1, , data()
    Close #1
 
    Open App.Path + "test.txt" For Random As #1
    Get #1, , getdata()
    Close #1
 
    For i = 1 To 20
        List1.AddItem d(i)
    Next i