Option Explicit
Dim Cache, Laenge, x, Zahl
 
Laenge = InputBox("Geben sie die Länge der Zufallszahl ein!")
Zahl = InputBox("Geben sie die abzuzählende Zahl ein! (1-6)")
If Laenge = "" Then Laenge = 1000
 
For x=0 To Laenge-1
 Randomize
 Cache = Cache & Int(6 * Rnd) + 1
Next
 
Replace Cache, Zahl, "", 1, -1, 1
 
MsgBox Cache