Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 3
ListBox1.AddItem (TextBox1.Value)
ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2.Value
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3.Value
End Sub
Private Sub CommandButton2_Click()
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub