フォルダ内のファイルのファイル名を固定長配列化

Visual Basic for Applications
Sub Macro()
  Dim File
  Dim FileName(100) '固定長配列の場合。インデックス番号は目的に合わせる。
  Dim FilePath As String
  Dim iii As Integer
  FilePath = "C:\Users\GetUserName\Desktop\ExampleFolder\" '一例。
  File = Dir(FilePath & "*.*", vbNormal) 'FilePath先フォルダ内の全ファイルを対象。
  iii = 1
  Do While File <> ""
    FileName(iii) = File
    File = Dir() 'Dir関数の引数は空欄にして次のファイル名を取得。
    iii = iii + 1
  Loop
End Sub