Can anyone tell me why this code is giving my a type mismatch error?
[vbcode]
Public Function qualitylook()
Dim n As Integer
Dim Qual As String

For n = 0 To lstFoundBrit.ListCount
Qual = lstFoundBrit.List(n)
lstFoundBrit.ListIndex = 0
If Left(Qual, 2) <> 1 Then
lstFoundBrit.RemoveItem (lstFoundBrit.List(lstFoundBrit.ListIndex))
End If
Next n
End Function


Thanx for the help,
Detard