Na ja, folgendes als sub

declare sub _2Val(byref Out1 as byte, byref Out2 as byte, byval F as byte)

call _2Val(tab(1), tab(2),

sub _2Val(byref Out1 as byte, byref Out2 as byte, byval F as byte)
out1 = F
out2 = F +1
end sub