sub pole (a as integer, b as integer)
dim pole as integer
pole = a * b
end sub