target  : (0,0x05) ImpAdLdRf
status  : emitted
from    : discovery snippet 'addressof' (minimised)

' ---- modProbe.bas
Option Explicit

Public Sub Main()
  Dim n As Long
  n = F(AddressOf CB)
End Sub

Function F(ByVal x As Long) As Long
  F = x
End Function
Sub CB()
End Sub

target disasm lines:
  modProbe.Sub Main | 4014E0    05 0000               ImpAdLdRf modProbe.Proc_401474
