Messing with UDTs (how to go bananas)

[krtxmrtz]

I was trying to use UDTs like below but I think this is too messy for me to handle and I feel there must be some trick to make it easier before I go nuts. Could anyone with good experience in using UDTs give me some advice?

Type Type2
   N As Integer
   Z() As Single
End Type

Type Type1
   N As Integer
   T() As Type2
End Type

Dim T1 As Type1

T1.N = 0
'...
'Later in the code:
T1.N = T1.N +1
Redim T1.T(T1.N - 1)
T1.T(T1.N - 1).N = 0
'...
'Further ahead in the code:
T1.T(T1.N - 1).N = T1.T(T1.N - 1).N + 1
ReDim T1.T(T1.N - 1).Z(T1.T(T1.N - 1).N - 1)
'...