Hjææææææælp får fejl, og kan ikke finde ud af hvad der er galt

<% '<!-- Minus AutoDato --> %>
<%Function RevFormatText(sIn)
    Dim charPos, sOut, curChar, urlChar, urlString, imgChar, imgPos, imgString
    sOut = ""
   
    sIn = Replace(sIn, "", vbcrlf)
    sIn = Replace(sIn, "&lt;", "<")
    sIn = Replace(sIn, "&gt;", ">")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""vred"">", ">:(")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""Chokeret 8O"">", "8O")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Glad :)"">", ":)")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""ked af det :("">", ":(")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Grin :D"">", ":D")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Fr&aelig;k :p"">", ":p")
    sIn = Replace(sIn, "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""Blink ;)"">", ";)")
    sIn = Replace(sIn, "<b>", "")
    sIn = Replace(sIn, "</b>", "")
    sIn = Replace(sIn, "<i>", "")
    sIn = Replace(sIn, "</i>", "")
    sIn = Replace(sIn, "<u>", "")
    sIn = Replace(sIn, "</u>", "")
    sIn = Replace(sIn, "<blockquote><font face=""verdana,arial,helvetica"" size=""1"">quote</font><hr>", "[quote]")
    sIn = Replace(sIn, "<hr></blockquote>", "[/quote]")
   
    For charPos = 1 To Len(sIn)
        curChar = Mid(sIn, charPos, 1)
       
        if mid(sIn, charPos, 4) = "<img" then
            sOut = sOut + "[img]"
            charPos = charPos + 10
            imgString = ""
            imgChar = ""
            imgPos = charPos
            do until mid(sIn, imgPos, 2) = """>"
                imgChar = mid(sIn, imgPos, 1)
                imgString = imgString + imgChar
                imgPos = imgPos + 1
                if imgPos > len(sIn) then
                    sOut = sOut + imgString + "[/img]"
                    exit for
                end if
            loop
            imgString = left(imgString, len(imgString))
            sOut = sOut + imgString + "[/img]"
            charPos = charpos + (imgPos - charPos + 5)
        elseif (mid(sIn, charPos, 2) = "<a") then
            do until mid(sIn, charPos, 2) = """>"
                charPos = charPos + 1
            loop
            charPos = charPos + 2
            urlString = ""
            urlChar = ""
            do until mid(sIn, charPos, 4) = "</a>"
                urlChar = mid(sIn, charPos, 1)
                urlString = urlString + urlChar
                charPos = charPos + 1
                if charPos > len(sIn) then
                    exit for
                end if
            loop
            sOut = sOut + urlString
            charPos = charpos + 3
        else
            sOut = sOut + curChar
        end if
    Next
   
    RevFormatText = sOut
End Function%>

jeg får en fejl i linje 6 nogen der kan hjælpe mig.

I kan se det her --> www.handikap.nu vælg forum
og login med eksperten/eksperten

og find ind i generel og lav et citat til en tråd, det er der fejlen kommer