Runtime Error 6: Overflow????

Why do I get that error on this piece of code:

If Bullet2(bu2).x + 30 >= StarX And Bullet2(bu2).x <= StarX + 30 And Bullet2(bu2).y + 30 >= StarY And Bullet2(bu2).y <= StarY + 30 Then HitStar2

All this code does is check for collision between a bullet and a Star shape thing I have. The error doesn't come until about 40 seconds into runtime. Please help!

MSDN:

Quote:

---

Overflow (Error 6)


An overflow results when you try to make an assignment that exceeds the limitations of the target of the assignment. This error has the following causes and solutions:

The result of an assignment, calculation, ordata type conversion is too large to be represented within the range of values allowed for that type ofvariable.
Assign the value to a variable of a type that can hold a larger range of values.

An assignment to aproperty exceeds the maximum value the property can accept.
Make sure your assignment fits the range for the property to which it is made.

You attempt to use a number in a calculation, and that number is coerced into an integer, but the result is larger than an integer. For example:
Dim x As Long
x = 2000 * 365 ' Error: Overflow
To work around this situation, type the number, like this:

Dim x As Long
x = CLng(2000) * 365
For additional information, select the item in question and press F1.

---

Thanks!