Type Mismatch

[Detard]

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

[Detard]

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

[Reznor_X]

>>lstFoundBrit.RemoveItem (lstFoundBrit.List(lstFoundBrit.ListIndex))

remove item expects a numeric value, not an string, so, the correct line should be :

lstFoundBrit.RemoveItem (lstFoundBrit.ListIndex)