extend the function class

[pacerier]

hi all, is there any way to extend upon a procedure itself?

like i want to be able to do the following

public sub test()
msgbox(special())
end sub

and it should popup a string, let's say "cool", plus i shld be able to use special() in every single sub but if we call special() from a function it should be rejected. how can that be done?


also, we should also be able to do the following

public sub test()
msgbox(specialvariable)
end sub

whereby specialvariable is accessible by every sub.