RemoveStrLb

Dim i
Dim oldstr As String
oldstr$ = text1
For i = 0 To List1.ListCount - 1
If List1.List(i) = oldstr$ Then
list1.RemoveItem (i)
End If
Next i