Option Explicit
Dim strA, strB
Dim regEx
Set regEx = New RegExp

strA = "^te3-0st$"
strB = "tE3-0sT"

regEx.Pattern = strA
regEx.Global = False
regEx.IgnoreCase = True

If regEx.Test(strB) Then
  MsgBox "B true"
Else
  MsgBox "B false"
End If

Option Explicit
Dim strA, strB
Dim regEx, Matches, Match
Set regEx = New RegExp

strA = "\d+"
strB = "000aaa111"

regEx.Pattern = strA
regEx.Global = True
regEx.IgnoreCase = False

Set Matches = regEx.Execute(strB)
For Each Match in Matches
  WScript.Echo Match.FirstIndex & ":'" & Match.value & "'"
Next