Вопрос по GetOpenFileName

[MefRunner]

При выборе нескольких файлов из диалога
filetoOpen = Application _
.GetOpenFilename(, , , , True)
необходимо программно определить сколько было выбрано файлов, а в идеале получить перечень имен.
Подскажите как можно это сделать?
Если я вдруг пошел не в том направлении, то проблема состоит в том, что надо при запуске макроса в Excel'е лио выбрать необходимые файлы для импорта в ручную, либо выбрать их по какому ллибо параметру, т.е. допустим *.тхт и дата создания, и произвести их импорт Excel.

[Igor_123]

Код: Выделить всё

Dim filetoOpen As Variant
Dim i As Long
filetoOpen = Application.GetOpenFilename(, , , , True)
If IsArray(filetoOpen) Then
    For i = LBound(filetoOpen) To UBound(filetoOpen)
        MsgBox filetoOpen(i)
    Next i
Else
    MsgBox filetoOpen
End If


[MefRunner]

Ух-ты работает, большое спасибо