Visual Basic 2008 | Problem

Public Class Form1


Dim Zahlen As String = "1234567890"
Dim z As New Random
Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm­nopqrstuvwxyz1234567890"
Dim l As New Random
Dim Buchstabennur As String = "-nopqrstuvwxABCDEFGHIJKefghijklmyzLMNOPQRSTUVWXYZabcd"
Dim r As New Random






Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)






End Sub




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    TextBox3.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        erstellenz()
    Next





    TextBox2.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        erstellen()
    Next






    TextBox1.Text = ""
    For i As Integer = 1 To NumericUpDown1.Value
        generieren()
    Next






End Sub


Private Sub generieren()
    Try
        TextBox1.Text += Buchstaben.Substring(l.Next(1, 60), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub


Private Sub erstellen()


Try
        TextBox2.Text += Buchstabennur.Substring(r.Next(1, 61), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub




Private Sub erstellenz()


    Try
        TextBox3.Text += Zahlen.Substring(z.Next(1, 62), 1)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub










End Class