Trying to message box and then paste file names to cells from a selection the user made

I am trying to messagebox an array element from a selection the user made. If i succeed with that, I would like to list the files the user selected on a colum of rows in a spreadsheet.

This is what I have so far:

Dim tester As Boolean

FileToOpen = Application.GetOpenFilename("Text Files (*.xls), *.xls", , , , True)

tester = IsArray(FileToOpen)

If tester = True Then
MsgBox "Some code here to display the files selected"
End If

How would I do that.

bump.............

bump...........