Using DIR() to show all files in a folder

[JordanChris]

something like:

For ctr = 0 To List1.ListCount 
      MsgBox List1.List(ctr)
      If Left(List1.List(ctr),1) = "A" then
              MsgBox ctr
      End if
Next