I have followed Karls tutorial on Arrays and still have some quesrtions. I can not get the dynamic array to work like your example. Thanks for any information. Also, can you test for a NULL record in the array so you know how many elements were used?

Private Sub btnFlowIt_Click()
Dim MyArray() As String
i = 0
MyArray(i) = strData (I get the dreaded subscript out of range here )
i = 1 + 1
ReDim Preserve MyArray(1 To i + 1)
For i = LBound(MyArray) To UBound(MyArray)
MsgBox MyArray(i)
Next i
End Sub

Jim