target  : (5,0x30) ExitProcFrameCbHresult
status  : emitted
from    : discovery snippet 'r2_exitproc_cls_retudt' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim o As New CR2
End Sub

' ---- CR2.cls
Option Explicit
Private Type TR
  a As Long
End Type
Private Function F() As TR
End Function
Public Sub Work()
  Dim r As TR
  r = F()
End Sub

target disasm lines:
  CR2.Proc_401708 | 401708    FF30 78FF0C000400     ExitProcFrameCbHresult copy:var_88 to:arg_C sz:0x4
