<code><font color=green>' Einlesen der ersten drei Textzeilen</font>
Dim F As Integer
Dim sLine1 As String
Dim sLine2 As String
Dim sLine3 As String
 
F = FreeFile
Open "DeineDatei.txt" For Input As #F
Line Input #F, sLine1
Line Input #F, sLine2
Line Input #F, sLine3
Close #F
 
<font color=green>' Hinzufügen der Zeilen zu den einzelnen Listboxen</font>
List1.AddItem sLine1
List2.AddItem sLine2
List3.AddItem sLine3</code>