呵呵！
我把全部代码给你，希望对你有帮助，关于文件名什么的，你自己弄吧！如果这都不会，那就得好好加把劲了！
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Sub Command1_Click()
'使用列表框控件的AddItem方法，将文本框的内容添加到List1
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
Dim N As Integer
Dim I As Integer
'获取list1的项目数
N = List1.ListCount
'获取被选中的项目序号，并删除该项
'注意：项目序号从0开始编号，即第1项序号为0，第2项序号为1，第3项序号为2，....
For I = 0 To N - 1
If List1.Selected(I) Then
'Selected属性，表示是否被选中，为逻辑类型
List1.RemoveItem I
'使用List的RemoveItem方法，删除第I项
Exit For
End If
Next I
End Sub
Private Sub Command3_Click()
'修改
'说明：List控件没有直接修改的方法，所以修改就是删除后再添加。而添加的内容总是在最后一项
'所以，我这里采用数组的方法
Dim MyArr() As String
Dim N As Integer
Dim I As Integer
'获取list1的项目数
N = List1.ListCount
'重新定义数组的规模大小，以保存list中实际的项
ReDim MyArr(N - 1) As String
'保存到数组
For I = 0 To N - 1
MyArr(I) = List1.List(I)
Next I
'获取被选中的项目序号
'注意：项目序号从0开始编号，即第1项序号为0，第2项序号为1，第3项序号为2，....
For I = 0 To N - 1
If List1.Selected(I) Then
'在这里获得选中项的序号i
'用Text1的内容替换数组中对应项的内容
MyArr(I) = Text1.Text
Exit For
End If
Next I
'使用List1的Clear方法将其内容清除
List1.Clear
'将数组的值，添加到List1
For I = 0 To N - 1
List1.AddItem MyArr(I)
Next I
End Sub
Private Sub Form_Load()
'使用列表框控件的AddItem方法，添加项
List1.AddItem "北京-上海"
List1.AddItem "北京-广州"
List1.AddItem "北京-四川"
List1.AddItem "北京-西安"
List1.AddItem "北京-深圳"
End Sub
'利用List1的单击Click事件，将选中的项目内容，显示在Text1里
Private Sub List1_Click()
Dim N As Integer
Dim I As Integer
'获取list1的项目数
N = List1.ListCount
'获取被选中的项目序号，并删除该项
'注意：项目序号从0开始编号，即第1项序号为0，第2项序号为1，第3项序号为2，....
For I = 0 To N - 1
If List1.Selected(I) Then
'Selected属性，表示是否被选中，为逻辑类型
Text1.Text = List1.List(I)
'将选中的项，显示在Text1里
Exit For
End If
Next I
End Sub
