Private Sub Form_Load()
  Dim I As Long
 
  Randomize Timer
  For I = 0 To 25
    Print ZufallsZahl(0.6, 0.9), ZufallsZahl(0.3, 0.4), ZufallsZahl(0, 0.9)
  Next I
End Sub
 
 
Private Function ZufallsZahl(ByVal cVon As Currency, ByVal cBis As Currency)
  Dim lZahl1 As Long
  Dim lZahl2 As Long
  Dim lDiff As Long
 
  lZahl1 = cVon * 10
  lZahl2 = cBis * 10
  lDiff = lZahl2 - lZahl1 + 1
  ZufallsZahl = "0," & Int(Rnd * lDiff) + lZahl1
End Function

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.