Redim broken

#include "crt.bi"
Type Robot field=1
    iUserRobot as Integer       'is the user's robot?
End Type

Dim Shared as Integer bPal(255)
Dim Shared as Robot Robot(0)
Dim shared as integer iTotalRobots = 0

Sub SetupRobots()
    Robot(0).iUserRobot = 1

    printf(!"%d\r\n", Robot(0).iUserRobot)
End Sub


function main as integer
    var TR = 2

    ' THIS IS MAKING CHANGES IN FUNCTIONS NOT STICK!@!@!
    Redim Robot(TR)

    SetupRobots()

    ' Is now zero?!?!?
     printf(!"%d\r\n", Robot(0).iUserRobot)

    return 0
end function

main()

sleep