target  : (4,0x8D) CheckType
status  : emitted
from    : discovery snippet 'obj_typeof' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim a As Object, n As Long
  If TypeOf a Is Collection Then n = 1
End Sub

target disasm lines:
  modProbe.Sub Main | 401463    FE8D 0000             CheckType Collection ;{A4C46780-499F-101B-BB78-00AA00383CBB}
