Option Explicit
Dim Cache, FS, Laenge, x
Dim Zahl(5)
Set FS = CreateObject("Scripting.FileSystemObject")
 
Laenge = InputBox("Geben sie die Länge der Zufallszahl ein!")
If Laenge = "" Then Laenge = 1000
 
For x=0 To Laenge-1
 Randomize
 Cache = Cache & Int(6 * Rnd) + 1
Next
 
For x=0 To 5
Zahl(x) = Count(Cache, x+1, False)
Next
 
Set x = FS.CreateTextFile("C:\Zufallszahl.txt")
With x
 .WriteLine "Wie oft wurden die Zahlen gewürfelt?"
 .WriteLine " 1: " & Zahl(0)
 .WriteLine " 2: " & Zahl(1)
 .WriteLine " 3: " & Zahl(2)
 .WriteLine " 4: " & Zahl(3)
 .WriteLine " 5: " & Zahl(4)
 .WriteLine " 6: " & Zahl(5)
 .WriteLine vbCr
 .WriteLine "Probe: (Ergebnis | Soll) --> Sollte gleich sein"
 .WriteLine  Zahl(0) + Zahl(1) + Zahl(2) + Zahl(3) + Zahl(4) + Zahl(5) & " | " _
   & Laenge
 .WriteLine vbCr
 .WriteLine "Die Zufallszahl ist:"
 .Write Cache
End With
 
If FS.FileExists("C:\Zufallszahl.txt") Then
 MsgBox "Der Ergebnisbericht wurde auf C:\ gespeichert",vbInformation, "Erfolg"
Else
 MsgBox "Der Ergebnisbericht konnte nicht gespeichert werden",vbError, "Fehler"
End If
 
Function Count(strToSearch, strToLookFor, bolCaseSensative)
  If bolCaseSensative then
    Count = UBound(split(strToSearch, strToLookFor))
  Else
    Count = UBound(split(UCase(strToSearch), UCase(strToLookFor)))
  End If
End Function

Zitat:

Viel Spaß damit und beim nächsten Mal bitte gleich ein bischen mehr Engagement In diesen Foren sind nämlich noch viel mehr Leute unterwegs, die nur lesen und dadurch dazulernen. Und denen wollen wir natürlich auch etwas bieten