Errore "Subscript out of range"

[maso1979]

Ciao a tutti potete aiutarmi a capire perche il seguente frammento di codice mi da il seguente errore:run-time error "9" subscripting out of range...

Dim array_tot() As String 'array dove memorizzo i nomi dei file contenuti in una cartella
Dim array_filt() As String 'contiene solo quelli che hanno un certo nome
Dim array_filt2() As String 'contiene quelli che INIZIANO con un certo nome
...................................
s = 0
For i = 0 To ((UBound(array_filt))-1)
If (InStr(1, array_filt(i), cmbBus.Text, vbTextCompare) = 1) Then 'prendo quelli che iniziano
Print #3, array_filt(i) 'in un certo modo
array_filt2(s) = array_filt(i) 'vorrei copiarli in un vettore appoggio,ma in questa riga si presenta
s = s + 1 'l'errore
Else
End If
Next

Ciao e grazie a tutti!!

[Luciano79]

prima di quella riga inserisci:

Redim Preserve array_filt2(s)

serve per dire che l'array array_filt2() contiene "s" elementi + 1

[maso1979]

Ottimo,grazie mille per l'aiuto e la disponibilità!!!