codice univoco casuale di 2 caratteri

[Kalman]

OOOPSSS mi ero dimenticato dei numeri

La funzione è:

Function Random2Chars() As String
        Static rand As New Random
        Dim Mystr As New System.Text.StringBuilder(2)

        For i As Integer = 1 To 2
            Dim indice As Integer
            Do
                indice = rand.Next(48, 90)
            Loop Until (indice >= 48 AndAlso indice <= 57) OrElse (indice _
                >= 65 AndAlso indice <= 90)
            Mystr.Append(Convert.ToChar(indice))
        Next
        Return Mystr.ToString()
    End Function

Ciao
Kalman