Why don't you Dim the UDT variable directly?, eg.
Code:
Type Type1
    Par1 As Integer
    myArr() As Double
End Type

Dim myType As Type1
ReDim myType.myArr(1000)

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]