Arrays

I'm Stumped.
 
I have an Excel spreadsheet with multiple sheets.
I use an Inputbox to read a specific sheet name and get the values if a specific cell is non-blank.
I then display the values using wscript.echo
This method displays each value in a dialog box of its own.
 
I want to put each value read from the spreadsheet in an array and wscript.echo the array.
 
I have googled ("I will not ask questions without googling first" : Bart Simpson)
I don't know where or how to load the value in to the array and increment the row in the array so the next
value is loaded.
 
I get the "Subscript out of range" message.
 
[psudocode]
Dim myArray(5)
 
Do while readExecl.sheet(intRow , 1)
if cell <> "" then
    X = cell1 & cell2...
   wsciprt.echo X
   myArray() = X
end if
intRow = intRow + 1
Loop
 
wscript.echo myArray(5)
 
[/psudocode]

To load values into an array, you need to access each individual element of the array. To use your psuedo code:

Do while readExecl.sheet(intRow , 1)
i = 0
if cell <> "" then
  Loop through each cell of interest
    wsciprt.echo X
    myArray(i) = X
    i = i+1
  Loop
end if
intRow = intRow + 1
Loop

wscript.echo myArray(5)