target  : (0,0x10) ThisVCallHresult
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.Work | 401783    10 20000000           ThisVCallHresult CR2.Proc_401708
