Sendkeys problem

[nelly3500]

Hallo,
Ich hab mir diesen Zufallsgenerator programmiert:

set ws = CreateObject("Wscript.shell")
von = 10000000000
bis = 999999999999
anzahlzahlen = 1
randomize
anzahl = bis - von + 1
for x = 1 to anzahlzahlen
zufall = fix(rnd*(anzahl))+von
liste = liste & vbcr & zufall
next
msgbox(anzahlzahlen & " Zufallszahl zwischen "& von &" und "& bis &"."& vbcr & vbcr &"Zufallszahlen: "& liste)

und jetzt wollte ich das nicht in einer msgbox haben sondern das es direkt per sendkeys ausgegeben wird wie kann man das machen ?

[DarkFire]

SendKeys.Send(anzahlzahlen & " Zufallszahl zwischen "& von &" und "& bis &"."& vbcr & vbcr &"Zufallszahlen: "& liste)

[nelly3500]

da kommt ein Fehler: