latterlig Funktion fejl

Function chop(strText)
    iPos1 = 1       
    iPos2 = 1
    iWordLength = 0
    strText = Trim(strText)
    Do Until iPos2 = Len(strText)
        iPos2 = iPos2 + 1
        iWordLength = iWordLength + 1
        If Mid(strText,iPos2,1) = " " Then
            iWordLength = 0
        End if
        If iWordLength > 10 Then   
            strText = Mid(strText,1,iPos1-1)_
            & Mid(strText,iPos1,iPos2-iPos1)_
            & " " & Mid(strText,iPos2,Len(strText)-iPos2+1)
            iPos1 = iPos2
            iPos2 = iPos2 + 1
            iWordLength = 0
        End If
    Loop
    strText = Replace(server.HTMLEncode(strText),vbCrlf," ")
    chop=strText
End Function

Foldername = "esrgksergksejrkgmskerlgkselrgkselrkg"

chop(FolderName)


Fejler med:

Microsoft VBScript compilation error '800a03ea'

Syntax error

Function chop(strText)