Hi,
I have tried using this but it throws the exception:
Error Type:- Microsoft VBScript runtime (0x800A0005)
              Invalid procedure call or argument: 'MidB'


============================
nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
nPosBegin = nPos + 14
nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))
oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
nPosBegin = nPosEnd+4
nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
boundary = MidB(biData, nPosBegin, nPosEnd-nPosBegin)//ERROR OCCURS HERE
===========================