target  : (4,0x91) RedimPreserveVar
status  : emitted
from    : discovery snippet 'arr_ary_in_var_redim' (minimised)

' ---- modProbe.bas
Option Explicit
Private Type TR
  v As Variant
End Type

Public Sub Main()
  Dim r As TR
  ReDim Preserve r.v(4)
End Sub

target disasm lines:
  modProbe.Sub Main | 401469    FE91 01000C20         RedimPreserveVar dim:0x1 SAFlag: 0x200C (Embedded)
