Code:
<!-- PublicKey: 1282854960 -->
Dim rg as New RegEx
Dim myMatch as RegExMatch
' 10
rg.SearchPattern="\d\d\d\d\d\d\d\d\d\d"
myMatch=rg.search(TextArea1.text)
if myMatch <> Nil then
MsgBox myMatch.SubExpressionString(0)
else
MsgBox "Text not found!"
End if
exception err as RegExException
MsgBox err.message
Comment