Boy oh boy, that title is confusing ay!
This is best explained with an example.. here's what I want to happen.
Dim m as sub
Public sub alg1()
Public sub alg2()
m = alg1
Public sub alg3()
Your example should work with a small change of
Dim m As Action Public Sub alg1() Call alg2() End Sub Public Sub alg2() m = AddressOf alg1 Call alg3() End Sub Public Sub alg3() Call m() End Sub
Another option is to pass it as parameter:
Public Sub alg2() alg3(AddressOf alg1) End Sub Public Sub alg3(m As action) m() End Sub