Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim zeichen() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", _
        "9", "a", "b", "z"}
        Dim text As String = Nothing
        Dim ausgabe As String = Nothing
        Dim lastpos As Integer = 0
        For z As Integer = 0 To zeichen.Length - 1
            For i As Integer = 0 To zeichen.Length - 1
                ausgabe = text + zeichen(i)
            Next
            text += zeichen(zeichen.Length - 1)
 
        Next
    End Sub