VBScript-kørselsfejl "mid"

hmmmm er ved at blive tosset på denne fejl !

ER der nogen der kan se hvad fejlen er =????



browseren melder ;:
//
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0005)
Procedurekaldet eller argumentet er ugyldigt: 'mid'
/ovelse/test1.asp, line 24



//en del ad koden !

Dim  lngMellemrumPos
Dim  lngStartPos
Dim  startNavn
Dim  lngLaengde

strNavn = "Jan Kurt Hansen"
strNavn = Trim (strNavn) & " "
lngStartPos=1


Do
    lngMellemrumPos= inStr (lngStartPos,strNavn, " ")
    lngLaengde=lngMellemrum - lngStartPos
    Response.write mid(strNavn,lngStartPos,lngLaengde) & "<br>"
    lngStartPos= lngMellemrumPos + 1

loop until instr (lngStartPos,strNavn, " " ) >=0
Response.write "koden er afslutet"