I have been trying to preserve data in a multidimensional dynamic array and it fails. runtime 9. using excel 2003 on thinkpad T61P

Sub test()
Dim testarry() As Integer
ReDim testarry(2, 2)
testarry(0, 0) = 1
testarry(0, 1) = 2
testarry(1, 0) = 3
testarry(1, 1) = 4
ReDim Preserve testarry(3, 2)
testarry(2, 0) = 5
MsgBox testarry(0, 0)
End Sub