Шаблон для регулярного выражения

Sub testreg2()
Set re = CreateObject("vbscript.regexp"): re.pattern = "(?:[s](\D))": re.Global = True
 Set m = re.Execute("basic")
 Debug.Print Val(m(0).submatches(0))
End Sub

Sub testreg2()
     Dim t1$, re As Object, m As Object
      t1 = Range("A1")
      Set re = CreateObject("vbscript.regexp"): re.Pattern = "(?:[s](\D))"
      Set m = re.Execute(t1)
      Range("B1") = m(0).Value 'si
      Range("C1") =  m(0).submatches(0)'i
      Range("D1") = Val(m(0).submatches(0)) '0
End Sub

Sub help1()
       Dim Str$
      Set objRegExp = CreateObject("VBScript.RegExp")
      Str = "One = 111" & vbCrLf & "Two = 222" & vbCrLf & "Three = 333"
       objRegExp.Pattern = "Two = (.+\r)"
       Set objMatches = objRegExp.Execute(Str)
       Set objMatch = objMatches.Item(0)
         MsgBox Trim(objMatch.Value)
     Set objSubmatches = objMatch.Submatches
  For i = 0 To objSubmatches.Count - 1
        MsgBox Trim(objSubmatches.Item(i))
  Next
End Sub