union testunion
    parameter as byte
    func as sub
end union

dim shared as testunion foo

sub bar()
    asm call foo.func
end sub