关于截取字符串

Private Sub Command1_Click()
Dim flml, wjj
wjj = List1.List(1)
Open (App.Path & "\flml.ini") For Binary As #1
s = Input(LOF(1), 1)
Close #1
Dim fl
Set fl = CreateObject("VBScript.RegExp")
fl.IgnoreCase = True
fl.Global = True
fl.MultiLine = True
fl.Pattern = "(.*?)=wjj"
For Each flml In fl.Execute(s)
Select Case flml.SubMatches(0)
Case "wjj"
Text2.Text = flml.SubMatches(1)
Next
End Sub

帮我看看这段那里有错。。。。
运行后。。text2.text 得不到(.*?)的值
把wjj设为常量就能得到(.*?)
是不是我把变量wjj语法写错了。高手教教下``谢谢啦``

flml.ini文件里的内容为
数值=123456789
而list1.list(1)为123456789

关于字符串截取 论坛关于字符串的截取 字符串截取 截取字符串 asp关于字符串截取的问题~~~~~~~~ 关于VB中截取字符串的问题 关于ASP截取字符串的问题 关于中英文混合字符串的计算和截取 [Linux C编程]关于一个字符串截取的问题 asp字符串精确截取?