target  : (3,0x27) IStStr
status  : emitted
from    : discovery snippet 'events' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim k As New CSink
End Sub

' ---- CSrc.cls
Option Explicit
Public Event Fired(ByVal n As Long, s As String)
Public Event Simple()
Public Sub Go()
  Dim s As String
  RaiseEvent Fired(1, s)
  RaiseEvent Simple
End Sub

' ---- CSink.cls
Option Explicit
Private WithEvents src As CSrc
Public Sub Hook()
  Set src = New CSrc
  src.Go
End Sub
Private Sub src_Fired(ByVal n As Long, s As String)
  s = CStr(n)
End Sub
Private Sub src_Simple()
End Sub

target disasm lines:
  CSink.src_Fired | 401A55    FD27 1000             IStStr arg_10
