请帮我写一段有关TreeView操作的简单VB程序

窗体上一个treeview1，另有一个文本框text1和三个按钮，分别是：增加、修改、删除按钮。

a1="一号||二号||三号||四号||"

在treeview1中列表如下：
一号
二号
三号
四号

实现：
一、在text1中打入“五号”，点击“增加”，增加到列表中最下面。
二、单击一号（或其它如二号），“一号”字样自动加入text1中，修改后点击“修改”，完成treeview1列表的修改。
三、当点击“二号”将“二号”字样放置到text1中时，点击“删除”，则删除“二号”在treeview1中列表。
请针对问题解决，谢谢。

完整代码如下,你只需在窗体中添加以下控件:
一个TreeView,三个CommandButton和一个TextBox

Private STR As Node

Private Sub Command1_Click()
If Text1.Text <> "" Then
Set STR = TreeView1.Nodes.Add(, , , Trim(Text1.Text))
End If
Text1.Text = ""
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" Then
TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Text = Text1.Text
End If
Text1.Text = ""
End Sub

Private Sub Command3_Click()
If Text1.Text = TreeView1.SelectedItem.Text Then
TreeView1.Nodes.Remove (TreeView1.SelectedItem.Index)
End If
Text1.Text = ""
End Sub

Private Sub Form_Load()
Dim I As Integer
Dim A As Variant
A = Array("一号", "二号", "三号", "四号")
Command1.Caption = "新增"