Since you have only a few extensions, I would probably imbed the check into the code like:
Files = Dir(App.Path & "\*.*")
Do Until Len(Files) = 0
FileName = LCase(Files)
If InStr(1, FileName, ".bmp") > 0 _
Or InStr(1, FileName, ".gif") > 0 _
Or InStr(1...