Can someone tell me why I'm getting a type mismatch at this line? Thanx for help,
Detard

private Sub 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
This line ----> lstFoundBrit.RemoveItem (lstFoundBrit.List(lstFoundBrit.ListIndex))
End If
next n
End Sub