zufallszahlen generieren

[Condor-II.]

also ich möchste gerne, dass wenn ich auf einen button klicke, dass dann folgende zahlen in einer msgbox ausgegeben werden sollen: "001" "002" "003" "004" "005"

aber nicht in einer reihenfolge wie sie oben steht. sondern zufällig.

[sami]

falls einfach einer dieser zahlen jeweils kommen soll:

Dim iRnd As Integer

iRnd = Int(Rnd * 5) + 1

MsgBox("00" & iRnd)

falls genau diese zahlen in beliebiger reihenfolge kommen sollen:

Dim sSorted() As String
Dim iCount As Integer

sSorted = Array("001", "002", "003", "004", "005")

For iCount = 1 To Length(sSorted)
MsgBox(sSorted[Int(Rnd * Length(sSorted))])
Next