ho contato le righe come hai detto, poi ho creato l'array cosi:

Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
righe=0
do while not ilfile.AtEndOfStream
righe=righe+1
illine=ilfile.readline
loop

dim testo(righe)

ma mi da questo errore:
Prevista costante Integer
/ line 60, column 10
dim testo(righe)