VB一段文字在text1
Dim ss, aa, bb, cc, xxx As String
ss = WebBrowser1.Document.body.innerText '得到所有文字
MsgBox ss
aa = "before then." '找出要分离的文字前面有标志性的文字
bb = InStr(1, ss, aa) '确定位置
cc = Mid(ss, bb + Len(aa), 12) '取出“before then.”后面的东西
以上代码有了分离文字前的标志性文字,还要分离文字后面的标志性文字怎么添加