Shoutbox

I can't get this piece of code to work with out getting a

code:

---

List1.ListIndex = 0
For a = 0 To List1.ListCount - 1
    If InStr(List1, websitein2) Then
        s = ""
        s = s + Mid$(List1, InStrRev(List1, "-") + 2)
        s = Replace(s, "http://", "")
    Else
        List1.ListIndex = List1.ListIndex + 1
    End If
Next a

---

Can any one help?