kan ikke initalisere dynamisk array

Hej!
jeg har et problem med dynamisk array i vb6.
hvis  jeg laver et dynamisk array "arrFailedQueues()" og en counter, Derefter forsøger jeg at putte data i det. 
arrFailedQueues(cntFailedQueues) = myCurrentQueue

her fejler det med "subject out of range"

hvis jeg derimod lavwer et statisk array
dim arrFailedQueues(10) As String
Så kan jeg ikke lave redim preserver.

Dette er et uddrag af koden for at det ikke skulle fylde så meget i spg. håber i for pointen.


Dim arrFailedQueues() As String
cntFailedQueues = 1

        For ix = 0 To UBound(tst)
           
            If tst(ix).MyState = 4 Then
                myCurrentQueue = tst(ix).MyQueue
                arrFailedQueues(cntFailedQueues) = myCurrentQueue
                cntFailedQueues = cntFailedQueues + 1
               
            End If
               
          Next ix
      ReDim Preserve arrFailedQueues(cntFailedQueues)