target  : (4,0x74) ForEachCollAd
status  : emitted
from    : discovery snippet 'foreach_collobj' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim c As New Collection, x As Object
  For Each x In c
  Next
End Sub

target disasm lines:
  modProbe.Sub Main | 401489    FE74 70FF1800         ForEachCollAd var_90 loc_401498
