Baumprogrammierung mit eigenen Nodes

[banktroll]

Hi,

ich habe die Aufgabe, in VBA für Excel einen trinomialen Baum zu programmieren. Da ich nichts vba-eigenes zur Baumprogrammierung finden konnte, habe ich angefangen, mir eine eigene "Nodes"-Klasse zu schreiben.

Allerdings bekomme ich es nicht hin, die Knoten zu verketten. Ich bekomme immer die Fehlermeldung "Laufzeitfehler '438'
Objekt unterstützt diese Eigenschaft oder Methode nicht"

Ich bin noch ziemlich neu in der vba-Welt und habe versucht, hier Konzepte umzusetzen, die mir aus anderen Programmiersprachen bekannt sind.

Vielleicht könnt ihr mir helfen...?! Hier Auszüge meines bisherigen Codes:

clsNode.xls

Option Explicit
Private index_i As Integer
Private index_j As Integer

Dim intern_pre1 As clsNode
Dim intern_pre2 As clsNode
Dim intern_pre3 As clsNode
Dim intern_pre4 As clsNode
Dim intern_pre5 As clsNode

Dim intern_next_u As clsNode
Dim intern_next_m As clsNode
Dim intern_next_d As clsNode
Public Sub Class_Initialize()

    Set intern_pre1 = Nothing
    Set intern_pre2 = Nothing
    Set intern_pre3 = Nothing
    Set intern_pre4 = Nothing
    Set intern_pre5 = Nothing
    
    
    Set intern_next_u = Nothing
    Set intern_next_m = Nothing
    Set intern_next_d = Nothing
    
End Sub

[...]

Public Property Let next_u(nNewnext_u As clsNode)
    intern_next_u = nNewnext_u
End Property

Public Property Get next_u() As clsNode
    next_u = intern_next_u
End Property

[...]

Public Sub addNode(node As clsNode)

    MsgBox ("im sub angekommen")
    
    next_u = node

End Sub

Eine Methode "baum()" soll das Ganze dann folgendermaßen aufrufen können:

Sub baum()

    Dim root As clsNode
    Set root = New clsNode

    root.i = 0
    root.j = 0

    MsgBox (root.i)
    
    Dim help As clsNode
    Set help = New clsNode
    
    help.i = root.i - 1
    
    MsgBox ("bis hierher1")
    root.addNode (help)
    
    MsgBox ("bis hierher2")

End Sub

Die Msg-Box mit "im sub angekommen" erscheint noch, aber dann ist bei
next_u = node
Schluss und ich bekomme oben genannte Fehlermeldung.
Wo ist mein Denkfehler?

Danke im Voraus & Gruß!