target  : (4,0x20) ImpAdCallUI1
status  : emitted
from    : discovery snippet 'strfn_Str_31' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim s As String, r As Variant
  r = AscB(s)
End Sub

target disasm lines:
  modProbe.Sub Main | 401473    FE20 00000400         ImpAdCallUI1 rtcByteValueBstr addESP:0x4
