Visual Basic erreur d'execution 13

sous quelle forme declare t-on a, b, c, d, e, f? (as double...)

Voici le code qui ne fonctionne pas! message d'erreur 13!

Private Sub CommandButton1_Click()
For n = 1 To 1500000
a = (n / 100000)
b = (n / 10000)
c = (n / 1000)
d = (n / 100)
e = (n / 10)
f = n
If (11 * a = b) & (10 * b < c) & (a + b = (2 * a) * (d - 1005 * a - 10 * b)) & (e - (a * b * c) = (12540 + (c - 10 * b) * (c - 10 * b))) & (((2 * b - a + e - 12541) * (d * a + d - 66 * (b - a - 1))) = (b * c * d * a * a + 66 * b * c * a * a - 66 * c * a * b * b + 100 * a * d * b * b + 6600 * a * b * b - 19 * a * b * c * d - 1254 * a * b * c + a * d * c * c + 66 * a * c * c - 6600 * b * b * b + 1320 * c * b * b + 100 * d * b * b + 6600 * b * b - 66 * b * c * c - 20 * b * c * d - 1320 * b * c + d * c * c + 66 * c * c + n)) Then
MsgBox (n)
End If
Next n
End Sub

Merci pour votre aide