Random Function

 Public Shared Function Rand(ByVal lenght As Integer) As String
        Dim A As New StringBuilder("")
        Dim B() As Char = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOOPASDFGHJKLZXCVBNM1234567890"
        For C As Integer = 1 To lenght
            Dim D As Integer = Int(((B.Length - 2) - 0 + 1) * Rnd()) + 1
            A.Append(B(D))
        Next
        Return A.ToString
    End Function