Treeview: Hvad er galt med min kode?

Hvad er der galt med min kode? Det er et treeview, der henter data fra et Excel-ark. Ideen er, at første felt i kolonnen giver parentnode, mens felterne derunder giver childnodes:

i = 0
set newNode = tvwTree.Nodes.Add(,, "Deltagere", "Deltagere")
Do
  i = i + 1
  Cells(1, i).Activate
  If ActiveCell.Value = "" Then Exit Do
  sParentNode = ActiveCell.Value
  Set newNode = tvwMuligeDeltagere.Nodes.Add("Deltagere", _
      tvwChild, sParentNode, sParentNode)
  Do
      ActiveCell.Offset(1, 0).Activate
      If ActiveCell.Value = "" Then Exit Do
      Set newNode = tvwMuligeDeltagere.Nodes.Add(sParentNode, _
        tvwChild, sParentNode & "\" & ActiveCell.Value, _
        ActiveCell.Value, 0, 0)
  Loop
Loop

Problemet er, at den kun indsætter "parents"-linierne.

Jeg har fulgt dette eksempel: http://experts.about.com/q/1048/376121.htm