Can't increment a variable

which is basically what you get with a currency
its an int 64 under the hood

I agree that converting everything to integers would have worked too.

you can convert with

d = CType(i, Double) i = CType(d, Integer)