Hvorfor virker Randomize ikke her?

Jeg har denne funktion, der skal generere tilfældige strenge bestående
af ANSI-tegn 34-92. Jeg skal f.eks. bruge 100 strenge på hver 32 tegn.
Men når jeg laver disse 100 strenge er der gengangere.
Hvorfor?

Function LavString(iAntalTegn As Integer) As String
Dim a, b

    For a = 1 To iAntalTegn
        Randomize
        b = b & Chr(Int(92 * Rnd + 34))
    Next a
    LavString = b

End Function

Dim c(99)

    For a = 0 to 99
    c(a)=LavString(32)   
    Next a

f.eks. kan c(3) være lig c(25) på alle 32 tegn!
Hvorfor?