Yes but could you help me with one more little problem
i'm trying to get a search button to work i have the code

Code:
For i = 0 To List1.ListCount - 1
search = txt_search.Text
If List1.List(i) = search Then
MsgBox List1.List(i) & " " & List2.List(i)
Else
End If
Next i
but there is somthing wrong with this line
search = txt_search.Text
comes up as yellow