Как загнать все адреса файлов с расширением exe из каталога в массив? - VB

Option Explicit
Private Sub Command1_Click()
    Dim dctFiles As New Dictionary
    Dim varKey As Variant
    Dim objFile As File
        
    Set dctFiles = LoadFilesIntoDictionary("C:TEMP", "xls")
    
    For Each varKey In dctFiles.Keys
        Set objFile = dctFiles.Items(CInt(varKey))
        MsgBox "File " & CStr(varKey) & " " & objFile.Name & " Modified on " & objFile.DateLastModified
    Next varKey
    
    Set dctFiles = Nothing
    Set objFile = Nothing
    
End Sub
 
Private Function LoadFilesIntoDictionary(ByVal pstrFolder As String, ByVal pstrExtention As String) As Dictionary
    Dim objFSO As New FileSystemObject
    Dim objFile As File
    Dim objReturn As New Dictionary
    Dim intIndex As Integer
 
    For Each objFile In objFSO.GetFolder(pstrFolder).Files
        If LCase(objFSO.GetExtensionName(objFile.Path)) = pstrExtention Then
            objReturn.Add intIndex, objFile
            intIndex = intIndex + 1
        End If
    Next objFile
    
   Set LoadFilesIntoDictionary = objReturn
   Set objFile = Nothing
   Set objFSO = Nothing
   Set objReturn = Nothing
    
End Function