A program function that reads cookies in VBScript

Cookie|vbscript| Program | function functions Cookievalue (Pcook)
Lhowlong=len (Pcook)
Lwhereis=instr (Document.cookie,pcook)
If Lwhereis=0 Then
Cookievalue=false
Else
Lstartpos=len (Document.cookie)-lwhereis-lhowlong
Lstartstring=right (Document.cookie,lstartpos)
Todo
Lchar=left (lstartstring,1)
If lchar= ";" Then
Cookievalue=lendstring
Exit Do
Else
Lendstring=lendstring & Lchar
If Len (lstartstring) =1 Then
Cookievalue=lendstring
Exit Do
Else
Lstartstring=right (Lstartstring,len (lstartstring)-1)
End If
End If
Loop
End If
End Function