break = False
        Do
            If Increase(Stelle1) = True Then
                Stelle1.Text = "0"
                If Increase(Stelle2) = True Then
                    Stelle2.Text = "0"
                    If Increase(Stelle3) = True Then
                        Stelle3.Text = "0"
                        If Increase(Stelle4) = True Then
                            Stelle4.Text = "0"
                            If Increase(Stelle5) = True Then
                                Stelle5.Text = "0"
                                If Increase(Stelle6) = True Then
                                    Stelle7.Text = "0"
                                    If Increase(Stelle8) = True Then
                                        Stelle9.Text = "0"
                                        If Increase(Stelle10) = True Then
                                            Stelle10.Text = "0"
                                            If Increase(Stelle11) = True Then
                                                Stelle11.Text = "0"
                                                If Increase(Stelle12) = True _
                                                  Then
                                                    Exit Sub
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
            My.Application.DoEvents()
        Loop Until break = True

Increase = False
        Dim ascii As Byte
        ascii = Asc(Speicher.Text)
        If ascii = 57 Then 'Zahlen 9 erreicht
            ascii = 64 'eine Stelle vor A wählen
        End If
        If ascii = 90 Then 'Z ereicht
            Increase = True
            Exit Function
        End If
        ascii = ascii + 1
        Speicher.Text = Chr(ascii)