target  : (0,0x5B) FStAdFuncNoPop
status  : emitted
from    : discovery snippet 'st_udtglob_Obj' (minimised)

' ---- modProbe.bas
Option Explicit
Private Type TRec
  pad As Long
  f As Object
End Type
Dim gr As TRec

Public Sub Main()
  Dim b As Object
  Set gr.f = New Collection
End Sub

target disasm lines:
  modProbe.Sub Main | 4014B0    5B 74FF               FStAdFuncNoPop var_8C
