Public Class Form1

    Private Sub Btn_generate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_generate.Click
        Dim passlength As Integer = Txt_length.Text
        Dim pass As String = Label2.Text
        Dim allLetters As String = "ABCDEF" + "GHIJKL" + "MNOPQR" + "STUVWXYZ" + "abcdef" + "ghijkl" + "mnopqr" + "stuvwxyz" + "#!$%&*"
        Dim random As Random
        random = New Random()
        ''letter will have a random Character from the list above everytime it is called
        Dim letter As Char = allLetters.Chars(random.Next(allLetters.Length))
        '' couldn't get a pre-check loop to work here, so lets try an If statement
        Label2.Text = letter
        Do While pass.Length = passlength

            Label2.Text = Label2.Text + letter



        Loop






    End Sub
End Class