Dim myArr() As String
 
Private Sub Command1_Click
List1.AddItem File1.FileName
RedimPreserve myArr(0 To Ubound(myArr)) As Long
myArr(Ubound(myArr)) = File1.Path &"\"& File1.FileName
End Sub
 
Private Sub Form_Load
Redim myArr(0) As String
End Sub