Producing a random number from a range

[MountainDew7]

I'm trying to make a random number from -100 to 100 in VB6, but all that's coming out is negative numbers. This is what I have:

Randomize
x = int(rnd * 100) - 100

Any ideas?