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
Härligt! Detta funkar!!
Jag börjar nästan förstå hur det fungerar!
Då frågar jag istället, finns det ett sätt att skriva: pattern = [10 numeriska tecken 0-9]