// Code examples from: Regular Expressions (Regex) for Office Users: 10 Patterns You Will Reuse
// https://www.atulvij.com/regex-basics-for-office-users
// Review and adapt before running; examples use sample values.

// ---- Example 1 (visual-basic) ----
Dim re As Object: Set re = CreateObject("VBScript.RegExp")
re.Pattern = "[6-9]\d{9}": re.Global = True
If re.Test(Range("A2").Value) Then Range("B2").Value = re.Execute(Range("A2").Value)(0)