Iterating over files in a folder [VBA]

option explicit
sub iterate_files_in_folder()

   dim dir_name  as string
   dim file_name as string

   dir_name = "c:\temp\"

'  file_name = dir(dir_name & "*.zip")
   file_name = dir(dir_name          )

   while file_name <> ""
'     debug.print dir_name & file_name
      msgBox(     dir_name & file_name)

    ' next file:
      file_name = dir()
   wend
end sub