Random Error? - oder Denkfehler

hi ich möchte eine 10-stellige Zufallszahl generieren, jedoch bekomm ich immer eine 9-stellige und negative zurück. Irgendwie ist der Wurm drinne

[autoit]

$number = Random(4000000001, 4999999998, 1); random
$number = StringReplace($number, "-", ""); falls minuszeichen wird es gelöscht
MsgBox(0,"", $number&" "&Stringlen($number)); Ausgabe

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

thx für Hilfe

mh ja war schon ne 2 Lösung thx

edit2: bitte closen
hier noch meine Ultra Checksum UDF

[autoit]

Func _checksum($number)
Dim $checksum=""
$number = StringSplit($number, "")
For $i = 1 To $number[0]
$checksum = $checksum + $number[$i]
Next
Return $checksum
EndFunc ;==> _checksum()

[/autoit]