Warum Endlosschleife ?

    Hallo Ihr,


    hab grad angefangen und brauch mal n paar Tipps:


    Kann mir jemand sagen, warum diese Loops eine
    Endlosschleife erzeugen?


    Danke ... (Ich öffne einen normalen .Txt-file)


    files = ws.OpenFileDialog(False, "Durchsuchen", "*.txt", "c:","")
    Dim messagelist As String
    If Not Isempty ( files) Then
    Forall filelist In files
    filefound = True
    messagelist = filelist
    End Forall
    End If

    Dim i As Integer

    Open messagelist For Input As 1

    i=0
    REM Do Until Eof(1)
    REM i% = i% + 1
    REM Loop

    REM Redim givendata(i) 'Array Anzahl bestimmen

    i%=1
    Do Until Eof(1)
    Get #1,,zeichenfolge
    REM Line Input #1, givendata(i)
    REM Messagebox(givendata(i))
    REM i% = i% + 1
    Messagebox(zeichenfolge)
    Loop