You need to declare an undimensioned array, and then initialize it at the top: Dim myresults() ReDim myresults(0) then replace the output...
Separate names with a comma.