Option Explicit
 
Public Wahrscheinlichkeit As Integer
Public Inhalt As String
Private Nachfolgera(0 To 1) As cknoten
 
Public Property Set Nachfolger(Index As Long, Dings As cknoten)
Set Nachfolgera(Index) = Dings
End Property
Public Property Get Nachfolger(Index As Long) As cknoten
Set Nachfolger = Nachfolgera(Index)
End Property

Private Sub Form_Load()
Dim Klasse As cknoten
Set Klasse = New cknoten
Set Klasse.Nachfolger(0) = New cknoten
Set Klasse.Nachfolger(1) = New cknoten
Set Klasse.Nachfolger(0).Nachfolger(0) = New cknoten
Set Klasse.Nachfolger(0).Nachfolger(1) = New cknoten
Klasse.Nachfolger(0).Nachfolger(1).Inhalt = 5
MsgBox Klasse.Nachfolger(0).Nachfolger(1).Inhalt
 
End Sub