code รัน Password อัตโนมัติ ให้เป็นตัวเลขปนตัวอักษร ไม่ซ้ำกัน ASP.net VB

Function RandomString(ByVal c As Integer) As String
        Dim RndStr As String = ""
        Randomize()
        Dim rgch As String
        rgch = "abcdefghijklmnopqrstuvwxyz"
        rgch = rgch & UCase(rgch) & "0123456789"

        Dim i As Long
        For i = 1 To c 
            RndStr &= Mid$(rgch, Int(Rnd() * Len(rgch) + 1), 1)
        Next

        Return RndStr
    End Function