ReDim Preserve MyRec(6) As TRec

というように確保した領域って

MyRec() = Nothing

で領域開放できるんでしたっけ?