Resizing multi-dimensioned array

[desquite]

I can't get this to work. I need to dynamically add to a two dimension array. Where am I going wrong? It goes through a loop and the second time it adds a column it give me a subscript out of range.

Thanks

Dim sDocInfo() As String
Dim iDocInfo As Integer

ReDim Preserve aDocInfo(iDocInfo, 2)
aDocInfo(iDocInfo, 1) = "info"
aDocInfo(iDocInfo, 2) = "info2"
iDocInfo = iDocInfo + 1