字符码的大小问题

[wanb123]

Private Function subString(theStart,theLen)
dim i,c,stemp
ObjStream.Position=theStart-1
stemp=""
for i=1 to theLen
if upfile_classes_Stream.EOS then Exit for
c=ascB(upObjStream.Read(1))‘stream对象的指针的位置怎么移动
If c > 127 Then
if upfile_classes_Stream.EOS then Exit for
stemp=stemp&Chr(AscW(ChrB(AscB(ObjStream.Read(1)))&ChrB(c)))'这里不是很清楚，请帮解释下。
i=i+1
else
stemp=stemp&Chr(c)
End If
Next
subString=stemp
End function