target  : (5,0x2F) ExitProcCbHresult
status  : emitted
from    : discovery snippet 'r2_frame_ret_str_cls' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim o As New CR, s As String
End Sub

' ---- CR.cls
Option Explicit
Public Function F(ByVal n As Long) As String
  If n Then F = "x": Exit Function
  F = "y"
End Function

target disasm lines:
  CR.F | 401744    FF2F 10000400         ExitProcCbHresult copyTo:arg_10 sz:0x4
  CR.F | 401750    FF2F 10000400         ExitProcCbHresult copyTo:arg_10 sz:0x4
