Problem med InStr

Nogen der kan fortælle mig hvorfor dette ikke gider virker:
   
    If InStr(Ban("IP"),Request.ServerVariables("REMOTE_ADDR")) > 0 Then '(Linje 66)
      Response.Write "<h1>Du er banned, og kan derfor ikke skrive i tagwallen.</h1>"
    Else
      If Len(xtag) < 300 Then
        xtag = Replace(xtag, "'", "&#39;")
        xtag = Replace(xtag,"<","&lt;")
        xtag = Replace(xtag,">","&gt;")
        xnavn = Replace(xnavn,"'","''")
        xnavn = Replace(xnavn,"<","&lt;")
        xnavn = Replace(xnavn,">","&gt;")
        xtag = Trim(Replace(xtag, vbCrLf, "<br>"))

        strSQL = "Insert into tagwall("
        strSQL = strSQL & "navn, "
        strSQL = strSQL & "tag, "
        strSQL = strSQL & "farve, "
        strSQL = strSQL & "tid, "
        strSQL = strSQL & "ip) "

        strSQL = strSQL & "values("
        strSQL = strSQL & "'" & xnavn & "', "
        strSQL = strSQL & "'" & xtag & "', "
        strSQL = strSQL & "'#E4BC2E', "
        strSQL = strSQL & "'" & xtime & "', "
        strSQL = strSQL & "'" & xip & "')"
      Else
        Response.Write "Du må kun skrive 300 tegn af gangen."
      End If
    End If

Den siger Exception Occured line 66