Errore function MidB

[evilsaint]

sub BuildUploadRequest(RequestBin)
 PosBeg=1
 PosEnd=InstrB(PosBeg,RequestBin,getByteString(chr(13)))
 boundary=MidB(RequestBin,PosBeg,PosEnd-PosBeg)
end sub

Mi da questo errore:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'MidB'

Qualcuno sa darmi una dritta?
Grazie