problem med Randomize ?

hvad går der lige galt med dette :

Function gen_key_pass(Digits)
    Dim char_array(10)
    char_array(0) = "<img src=images/0.gif>"
    char_array(1) = "<img src=images/1.gif>"
    char_array(2) = "<img src=images/2.gif>"
    char_array(3) = "<img src=images/3.gif>"
    char_array(4) = "<img src=images/4.gif>"
    char_array(5) = "<img src=images/5.gif>"
    char_array(6) = "<img src=images/6.gif>"
    char_array(7) = "<img src=images/7.gif>"
    char_array(8) = "<img src=images/8.gif>"
    char_array(9) = "<img src=images/9.gif>"
    Randomize
        Do While Len(output) < Digits
            Num = char_array(Int((9 - 0 + 1) * Rnd + 0))
            Output = Output + Num
        loop
    gen_key_pass = Output
End Function

Hvis jeg bruger billed filer som ovenfor viser den kun et tal hvorimod hvis jeg bruger tal skriver den det rigtige antal ud kan nogen hjælpe med at få det på plads ?

/Websam