Dim lf_node As Node
 
    Set lf_node = trv_mainTree.Nodes.Add(, , "n1", "Test")
    Set lf_node = trv_mainTree.Nodes.Add("n1", tvwChild, "n2", "Test2")
    Set lf_node = trv_mainTree.Nodes.Add("n1", tvwChild, "n3", "Test3")

Real programmer do not comment their code;
what?s hard to write should be hard to read