Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Label1.Text = "" 'Labeltext zurücksetzen
        Dim tempStr As String 'Te´mporäre String-Variable zum zwischenspeichern 
        ' des Buchstabens
 
        For a As Integer = 0 To 600 'Hier stellst du die Anzahl der Buchstaben 
        ' ein
 
            Randomize() 'Dieser Befehl ist notwändig, damit nicht immer die 
            ' gleiche Reihenfolge der Zufallszahlen kommt
 
            If CInt(Int((2 * Rnd()))) = 0 Then 'Zufallszahl 0 oder 1 für 
            ' Großbuchstabe oder Kleinbuchstabe
                tempStr = CInt(Int((26 * Rnd())) + 65) 'Bytezahl 65 - 90 ist A 
                ' - Z
            Else
                tempStr = CInt(Int((26 * Rnd())) + 97) 'Bytezahl 97 - 122 ist a 
                ' - z
            End If
            Label1.Text &= System.Text.UTF8Encoding.Default.GetChars(New Byte() _
              {tempStr}) 'Byte in Char umwandeln
            Label1.Update() 'Änderung sofort anzeigen
        Next
 
 
    End Sub