Visual Basic - Problema 'Desbordamiento'

Uso visual basic 6, bajo windows xP ...

Mi problema viene al tener que tratar con numeros demasiado amplios, os pongo el codigo y ahora comento .:

<=>

Dim x As Long
Dim x1 As Double

x1 = 41616
x = x1
x = x ^ 2
x = x Mod 100000
x = x - (x Mod 7)
x = x ^ 2
x = x Mod 100000
x = x - (x Mod 13)
x = CInt(x ^ 0.5)
x = (x ^ 2 + x) / 2
x = x Mod 100000

<=>

Bien, el problema viene porque se desborda X ( al elevar al cuadrado el numero ), y no se como solucionarlo. Matematicamente, no puedo hacer cambios, y la verdad es que no sé que puedo hacer.

Agradeceria sus comentarios.

Un saludo, y gracias de antemano.

x no lo declares como Long, si no como Double

Es un apaño, pero a medias... Resulta que antes me saltaba en el cuadrado primero ( x ^2 ), y ahora me salta en el x mod 100000 ... Sigue desbordando...

Gracias de todos modos.

Un saludo.