target  : (4,0x60) EraseDestruct
status  : emitted
from    : discovery snippet 'udt_arr_fixed_erase' (minimised)

' ---- modProbe.bas
Option Explicit
Private Type TRec
  a As Long
  s As String
  v As Variant
  o As Object
End Type
Private Type TPlain
  a As Long
  b As Integer
End Type

Public Sub Main()
  Dim r(3) As TRec
  Erase r
End Sub

target disasm lines:
  modProbe.Sub Main | 40147A    FE60 0000             EraseDestruct udtPool:0x0
