<code><font color=green>'Sicherstellen, daß bei jedem Start wirklich
'eine neue Zufallszahl generiert wird</font>
Randomize -Timer
 
Dim minZahl As Long
Dim maxZahl As Long
Dim Zahl As Long
 
minZahl = 10000
maxZahl = 99999
 
<font color=green>'Zufallszahl 1..maxZahl</font>
Zahl = Int((maxZahl - minZahl + 1) * Rnd + 1)
 
MsgBox "Zufallszahl " & Zahl</code>