Private Sub cmdDatum_Click() 'Datum
  '...
    While name1 <> ""
      '-----------------------------------
      ' Erst mal schauen ob die ersten 4 Zeichen wirklich numerisch sin
      If IsNumeric(Left(name1, 4)) Then
      '-----------------------------------
        monat1 = Mid(name1 , 3, 2)           ' Hier könnte der Fehler sein
        If monat = monat1 Then
          datum1 = Left(name1 , 2) & "." & Mid(name1 , 3, 2) ' Hier könnte der 
          ' Fehler sein
          txtdat = Format(datum1, "dd. mmmm")
          Me.List1.AddItem (txtdat)
          liste(Counter) = txtdat
          Counter = Counter + 1
        End If
      Else
        MsgBox "Dateiname kann nicht verarbeitet werden: " & sFile
      End If
      name1 = Dir
    Wend
    ' ...
End Sub