>>479を読む限りはファイルパスの取得方法を知りたいという事だから、

Function test1()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
If .Show Then
ReDim c(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
c(i) = .SelectedItems(i)
Next
End If
End With
test1 = c
End Function

これで良かったわとちょっと後悔。