Makro, große Zahlen

Sub EsIstZumVerzweifeln()
Dim a%, b%, c As Variant, z%, t!, d As Variant
t = Timer
For a = 100 To 360
For b = 100 To 360
c = CStr(CDec(a * (a + 1)) * (b * (b + 1)))
If d = 5 & Mid(c, 2, 1) & Mid(c, 3, 1) & Mid(c, 4, 1) & Mid(c, 5, 1) & Mid(c, 6, 1) _
& Mid(c, 7, 1) & Mid(c, 8, 1) & Mid(c, 9, 1) & 4 And a  b Then
Cells(z + 1, 1) = a
Cells(z + 1, 2) = b
Cells(z + 1, 3) = d
z = z + 1
End If
Next
Next
MsgBox "fertig in" & Round(Timer - t, 2) & " Sek"
End Sub

Es soll eine 10-stellige Zahl gefunden werden, die mit 5 beginnt....
Danke im Voraus!
Gruß, Alifa