look in the Help file for a VBA command called DIR
In short, use a loop and have an array ready.
strValue = DIR("Path\File*.*") 'this gives the first item returned in the directory search
iC = 1
strArray(iC) = strValue
strValue = ""
iC = iC + 1
strValue = DIR ' this gets the next item in the returned search
if strValue <> "" then strArray(iC) = strValue ' DIR returns an empty string if the search yield nothing, or when it has exhausted the items it found
Loop Until strValue = ""