[VB] problema con array

[evil80]

Ciao,
sto scrivendo un piccolo programma che dovrebbe aprirmi un file di testo contenente numeri,eliminare i doppioni quindi risalvare il file correttamente.
Tutto funzionava bene (con array di dimensione finita) fino a quando ho ottenuto un errore e ho quindi deciso di provare ad usare degli array indefiniti ma ottengo sempre un errore.
Questa è la mia idea (è solo la porzione di codice interessata) :


Dim strNumero() As String

intFile=FreeFile
Open selected For Input As #intFile

intC1 = 0
Do Until (EOF(intFile))
Line Input #intFile, strNumero(intC1)
ReDim Preserve strNumero(UBound(strNumero) + 1)
intC1 = intC1 + 1
Loop

Close #intFile

praticamente voglio solo creare un array contenente tutti i numeri del file (il problema ovviamente è che non ho la più vaga idea di quanti numeri possa contenere,per questo ho bisogno di un array indefinito!).
Ma ottengo il seguente errore :
"Subscript out of range" alla riga : Line Input #intFile, strNumero(intC1)

Dove sbaglio,proprio non capisco...
Aiuto!
Grazie 1000.

[xegallo]

Dim sFileName As String
Dim strNumero() As String
Dim intFile As Integer
Dim IntC1 As Integer
   intFile = FreeFile
   Open sFileName For Input As #intFile
      ReDim strNumero(0) As String
      IntC1 = 0
      Do Until (EOF(intFile))
         ReDim Preserve strNumero(UBound(strNumero) + 1)
         Line Input #intFile, strNumero(IntC1)
         Debug.Print strNumero(IntC1)
         IntC1 = IntC1 + 1
      Loop
   Close #intFile
End Sub