try this
VB Code:
  1. Dim iPos As Integer

  2.     For i = 0 To List1.ListCount - 1

  3.         iPos = InStr(1, List1.List(i), txtText1.Text)

  4.         If Trim(txtText1.Text) = "" Then Exit For

  5.         If iPos > 0 Then

  6.             txtText1.Text = Mid(txtText1.Text, 1, iPos - 1) & Mid(txtText1.Text, iPos + Len(List1.List(i)))

  7.             List1.RemoveItem (i)

  8.         End If

  9.         iPos = 0

  10.     Next
change the control names to suit your requirement