VB6, len of UDT does not change after Redim

Hello!
I am confused over the following code snippet:
Why does slask and slask2 show the same value?
The Redim should (as I understand it..) mean that LenB increases with 1000, but it doesn't...

Tia,

/Johan S


Private Type test_UDT
filler As Long
arry() As Byte
filler2 As Long
End Type

Private Sub Form_Load()
Dim testor As test_UDT
Dim slask, slask2
slask = LenB(testor)
ReDim testor.arry(1 To 1000)
slask2 = LenB(testor)
' Why doesn't LenB change??
End Sub