Private Sub Command1_Click() 
    List1.Clear 
    start = Val(Text1.Text) 
    ende = Val(Text2.Text) 
    pfad = "c:eigene dateien" 
     x = 0 
    Do 
         x = x + 1 
             For x = start To ende
 
stop .... beißt sich. X auf 0 gesetzt, dann x incrementiert 
und dann noch eine For - Schleife mit x initialisiert .... das geht in die Hose _
  ... 
Schon hier sagt ein Lordchen: break it!