Password Generator

Dim chars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()_+-="
Dim length As Integer = 8 'You can use any value. 8 is the best
Dim password As String = ""
Dim rand As New Random()
For i As Integer = 0 To length - 1
    password += chars(rand.Next(chars.Length))
Next
TextBox1.Text = password