Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Hochzählen()
    End Sub
    Sub Hochzählen()
        Dim Zahl As String = Val(GetZahl + 1)
        Dim BenutzteBuchstaben As New List(Of Char)
        Dim buchstaben As String = "abcdefghijklmnopqrstuvwyz"
        Dim Verschlüsselt As String = "x" 'x Als Trennzeichen
        For x As Integer = 0 To 9
Neu:
            Dim buchstabe As Char = buchstaben(Int(Rnd() * 24))
            If BenutzteBuchstaben.Contains(buchstabe) Then GoTo Neu _
              'Verhindern, dass ein Buchstabe doppelt verwendet wird.
            BenutzteBuchstaben.Add(buchstabe)
            Verschlüsselt &= buchstabe
        Next
        For i As Integer = 0 To zahl.Length - 1
            Verschlüsselt = BenutzteBuchstaben(Val(Zahl(i))) & Verschlüsselt
        Next
        Dim key As String = My.Computer.Registry.LocalMachine.Name
        My.Computer.Registry.SetValue(key, "MeinProgLoaded", Verschlüsselt)
        MsgBox("Programm wird zum" & Zahl & "ten mal Gestartet")
    End Sub
    Function GetZahl() As Integer
        Dim key As String = My.Computer.Registry.LocalMachine.Name
        Dim Verschlüsselt As String = My.Computer.Registry.GetValue(key, _
          "MeinProgLoaded", "axabcdefghij")
        If Verschlüsselt = Nothing Then Verschlüsselt = "axabcdefghij"
        Dim Zahl() As String = Verschlüsselt.Split("x")
        Dim buchstaben As String = Zahl(1)
        Dim ret As String = ""
        For x As Integer = 0 To Zahl(0).Length - 1
            For y As Integer = 0 To buchstaben.Length - 1
                If Zahl(x) = buchstaben(y) Then
                    ret &= y
                End If
            Next
        Next
        Return ret
    End Function
End Class