target  : (4,0x8F) RedimPreserve
status  : emitted
from    : discovery snippet 'r2_udt_rebase' (minimised)

' ---- modProbe.bas
Option Base 1
Option Explicit
Private Type TR
  s As String
End Type

Public Sub Main()
  ReDim a(1 To 3)
  ReDim Preserve a(1 To 4)
End Sub

target disasm lines:
  modProbe.Sub Main | 401480    FE8F 01000C0010008008 RedimPreserve dim:0x1 VT: 0xC (Variant) elemSz:0x10 SAFlag: 0x880 (HaveVarTyp | Var)
