Private Sub Form_Load()

Sub Zahlenfolge()

Option Explicit
 
'Datentyp für Registrierung eines Zahlenübergangs
Private Type Wechsel
 
    vorher As Integer
    nachher As Integer
    anzahl As Integer
End Type
 
 
'Register der Übergangshäufigkeiten
Private register() As Wechsel
 
'Verwaltung des Registers
Private Sub RegistriereWechsel(ByVal vorher As Integer, _
                               ByVal nachher As Integer)
usw.
.
.
.