Получить в массив количество и список файлов из определенного каталога - VB

private function GetListFiles(sFolder as string) as variant
dim a() as string
dim fso as new FileSystemObject
dim fld as folder
dim fl As Variant
dim i as integer
  set fld = fso.getfolder(sfolder)
  redim preserve a(1 to fld.files.count)
  i = 1
  for each fl in fld.files
    a(i) = fl.name
    i = i + 1
  next
  getlistliles = a
set fld = nothing
set fso = nothing
end function