vb6正则匹配换行符中的内容

各位老师，有个问题困扰我好几天，试了网上好多办法都不行只好来求助。

我想从很多段话里找出两段话中间的内容，网上找到公式可以匹配出来。但是，获得内容中回车符号没有了，我晕，连在了一起。

比如：
33455666
9露个脸乌克谋
22222
哦咯了
可否告知下
33333
那我就哦
咯莫

我想截取22222和33333之间那段话，而且要保留获取内容中的换行符，不要连在一起，请问各位老师怎么办呢，谢谢啦

vbs没问题，题主确认内容是有换行的？

s="33455666"&vbnewline&_
"9露个脸乌克谋"&vbnewline&_
"22222"&vbnewline&_
"哦咯了"&vbnewline&_
"可否告知下"&vbnewline&_
"33333"&vbnewline&_
"那我就哦"&vbnewline&_
"咯莫"

set re=new RegExp'创建正则表达式
re.Global=true'全局匹配
re.Pattern="22222([\s\S]+?)33333"'正则表达式
set mc=re.Execute(s)'执行匹配

for each m in mc
  msgbox m.submatches(0)
next
set re=nothing

直接查找字符串，截取字符串，不用正则表达式

(?<= 22222)[\s\S]*?(?= 33333)