用treeview读文件实现以下功能，请指教

文件zd.txt：
-----------血压
白细胞稍偏低
压高血
血压偏高
血压增高
血小板减少
血小板稍偏低
血糖偏高
血糖增高，考虑糖尿病
血脂偏高
高脂血症
丨舣讞总胆固醇偏高
尿酸偏高
高尿酸血症，考虑痛风
-----------血压2
血小板稍偏低2
白细胞稍偏低2
压高血2
血压偏高2
血压增高2
血小板减少2
血小板稍偏低2
血糖偏高2
血糖增高，考虑糖尿病2
血脂偏高2
高脂血症
丨舣讞总胆固醇偏高2
尿酸偏高2
高尿酸血症，考虑痛风2
-----------血压3
血小板稍偏低3
白细胞稍偏低3
压高血3
血压偏高3
血压增高3
血小板减少3
血小板稍偏低3
血糖偏高3
血糖增高，考虑糖尿病3
血脂偏高3
高脂血症
丨舣讞总胆固醇偏高3
尿酸偏高3
高尿酸血症，考虑痛风3
用treeview实现二级数（程序错在什么地方？）：
Public Sub tree_change()     '定义添加树状列表的函数
Dim s As String, key As String, text As String
Open "zd.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If Left(s, 1) = "-" Then
key = s
text = s
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1)
Else
key = s
text = s
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 2)
End If
Loop
Close #1
End Sub
程序报错：key is not unique in collection!