Hi sancarn, Have you achieved your goal?

vb Code:
  1. sub Main()
  2.   Dim cb as variant
  3.   set cb = stdCallback.create("Module","myModuleName","myFunctionName")
  4.   Call someCall(cb)
  5. end sub
  6. sub someCall(cb as object)
  7.   Debug.Print cb()
  8. end sub
  9. Function myFunctionName() as boolean
  10.   myFunctionName = true
  11. end