>>212
Private Sub Command1_Click()
Dim whatever As String
Open "As it is.CSV" For Input As #1
Do While Not EOF(1)
Line Input #1, whatever
If InStr(whatever, "I realy hate this string") = 0 Then List1.AddItem whatever
Loop
Close #1
End Sub