problemer med mid()

jeg får følgende fejl:
Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: \'Mid\'
/web/test/test.asp, line 76

i denne funktion:
function getCSVData(strData,chDelimiter,column)
   
    dim chPos(20),i,idx
   
    idx = 0
   
    for i = 1 to 20
        chPos(i) = 0
    next
   
    for i = 1 to Len(strData)
        if Mid(strData,i,1) = chDelimiter then
            idx = idx + 1
            chPos(idx) = i       
        end if
    next

(76)    getCSVData = Mid(strData,chPos(column)+1,chPos(column+1)-chPos(column)-1)

end function

Meningen med funktionen er at kunne hente eet felt fra en streng indlæst fra en komma-seperet fil.