RoundUp
There is a function which truncate all decimalparts (Int(Yournumber), if you add just 1 to the result you are done.
Variable-Scope
Declare all variables in the module and then your done.