乱码

Set fso = CreateObject("Scripting.FileSystemObject")
words = fso.OpenTextFile("a.txt",1).ReadAll

s="您可以" '开始字符
e="产品资讯" '结束字符
sp=InStr(words,s) '找到开始位置
ep=InStr(words,e) '找到结束位置

If sp And ep Then
    ret=Mid(words,sp,ep-sp+Len(e)) '得到需要的字符串
    'MsgBox ret
    fso.OpenTextFile("b.txt",2,1).Write ret
Else
    MsgBox "范围错误"
End If