Dim DirName as String
Dim Count as Integer
Dim Dateien() as String
 
    DirName = Dir(Path, vbNormal) ' 
    Count = 0
    Do While DirName <> ""
        If  Right(DirName,3) =  "123"  Then
                ReDim Preserve Dateien(Count) 
                 D(Count) = DirName
                 Count = Count + 1
            End If
        End If
        DirName = Dir
    Loop