Public Function RandomString(length As Integer) As String
    Dim chars As Char() = "qwertyuiopasdfghjklzxcvbnm1234567890".ToCharArray()
    Dim rand As New Random()
    Dim toReturn As String = ""
    For i As Integer = length To length - 1
        toReturn += chars(rand.[Next](0, 36)).ToString()
    Next
    Return toReturn
End Function