10 ciffer randum genereret unikke tal

Will this do?:

Function GenererRandom(AntalCifre)
    Dim s, i
    s = ""
    Randomize
    For i = 1 To AntalCifre
        s = s & Int(10 * Rnd)
    Next
    GenererRandom = s
End Function

Ikke helt, det jeg er ude efter er at der gennereres et 10 cifret tal, som skal være helt unikke, jeg har ca. 2000 poster hvor det skal genereres, men indtil videre skal du have tak

unikt i forhold til hvad - må det ikke forekomme i forvejen i en kolonne i tabellen?

skal det bare gennemløbes en gang for alle eller skal du havet et ny nummer når du opretter en post?

er der nogle krav til tallets udformning?

du kan muligvis bruge den foreslåede funktion, hvis der bare tjekkes for at det ikke eksisterer i forvejen.

Og her?