Dynamisk Array

Har letat överallt men kan inte fatta vad jag gör för fel, nån som kan berätta det för mig?

har aldrig gjort dynamisk array med fler dimensioner men det bör väl gå!?

  ReDim Preserve arrProg(2, UBound(arrProg, i) + 1)
                
                arrProg(UBound(arrProg, 0), i) = Trim(Mid(strData, 1, InStr(1, strData, "|") - 1))
                
                
                arrProg(UBound(arrProg, 1), i) = Trim(Right(strData, InStr(1, strData, "|") + 3))
                arrProg(UBound(arrProg, 1), i) = Replace(arrProg(UBound(arrProg, 1), i), Chr(9), "")
                
                arrProg(UBound(arrProg, 0), i) = Replace(arrProg(UBound(arrProg, i), i), Chr(9), "")
                arrProg(UBound(arrProg, 0), i) = Trim(arrProg(UBound(arrProg, i), i))
                
                                      
                olle1 = arrProg(0, i)
                olle2 = arrProg(1, i)
                End If
    
                Loop