すみません。１つ教えてください。
VB6でコールバック的な処理って出来るでしょうか？

例:


sub Main()
CALL ASUB(CallBackFunc)
end sub

sub ASUB(aFunc)
return aFunc(1,2,3)
end sub


sub CallBackFunc(a,b,c)
debug.print a,b,c
end sub

よろしくお願いします。