Lotusscript使用正则表达式

Dim oRegExp As Variant 
Set oRegExp = CreateObject ("VBScript.RegExp")
Dim MatchValue As Variant
oRegExp.IgnoreCase = True '设置是否区分字符大小写。 
oRegExp.Global = True '设置全局可用性。
oRegExp.Pattern = "TPP[0-9]{8}"    'TPP开头的8位数字编码

Set MatchValue = oRegExp.Execute("<字符串>")
If MatchValue.Count > 0 then
　　　Msgbox.MatchValue(0).Value
End if