<code>Private Sub Command1_Click()
  Dim Von As Date
  Dim Bis As Date
  Dim TT As Integer
  Dim MM As Integer
  Dim JJ As Integer
  Dim sFilename As String
 
  List1.Clear
 
  <font color=green>' Von und Bis in Datentyp DATE umwandeln</font>
  With Text1
    TT = Val(Left$(.Text, 2)): MM = Val(Mid$(.Text, 4, 2)): JJ = Val(Mid$( _
      .Text, 7))
  End With
  With Text2
    Bis = DateSerial(Val(Mid$(.Text, 7)), Val(Mid$(.Text, 4, 2)), Val(Left$( _
      .Text, 2)))
  End With
 
  Do
    Von = DateSerial(JJ, MM, TT)
    If Von > Bis Then Exit Do
 
    <font color=green>' Nur wenn die Datei existiert...</font>
    sFilename = "c:eigene dateien\" & Format$(Von, "dd.mm.yy") & ".txt"
    If Dir$(sFilename, vbNormal) <> "" Then
      List1.AddItem sFilename
    End If
    TT = TT + 1
  Loop
End Sub</code>