Sub is in the wrong place. Step through the code to test it.
Look up the Integer and Long data types, also Single and Double.
Also look at Public Variables.