You need to drop the program from the sub call and name it iysam() like so:

Your code now =

Sub program (choice as integer)


Your code should =

Sub iyam(Choice!)

Then you can pass any variable of the specified type to that sub.

Either that or change the name in the call to

Call program(2)

instead of

Call iysam(2)

...later