Load - Linie

Private Sub Form_Load()

Dim antal As Integer
Dim tekstvariabel As String
Dim path As String

path = App.path

Open \"fil.txt\" For Input As #1
    antal = 0
    Do Until EOF(1)
        Line Input #1, tekstvariabel
        antal = antal + 1
        If antal Mod 5 = 0 Then
            Text1.Text = Text1.Text & tekstvariabel & Chr$(13) & Chr$(10)
        End If
    Loop
Close 1

End Sub