Function ZufallszahlAusgeben(lngUntergrenze As Long, lngObergrenze As Long)
    
  Randomize Timer
  ZufallszahlAusgeben = Int((lngObergrenze - lngUntergrenze + 1) _
                               * Rnd + lngUntergrenze)
End Function

Dim x As Long
x = ZufallszahlAusgeben(1, 100)

• Unter MS-Access eine Zufallsdatum erzeugen
• Passwort Generator
• Nächste freie Nummer/Zahl ermitteln
• Nur Zahlen aus einem String ermitteln
• Anzahl der Tage im Monat