Why does this code skip a file in the loop ?????

[Redangel]

i have a file folder with .rtf files inside it and what i want is this loop to loop though the file folder and retrive the .rtf file names but my code only reads 6 files out of 7 and then jumps out of the loop

DirPath = App.Path & "\Client Files\*.rtf"
    DirFiles = Dir(DirPath, vbNormal)
    For Loop1 = 1 To Val(Dir)
        ClientNum = Val(DirFiles)
        FileNum = FreeFile
        Debug.Print ClientNum
        DirFiles = Dir

Please help