Expresiones regulares y la función RegExp de VBscript

Esto es un ejemplo sobre cómo usar el objeto RegExp. El siguiente código busca todas las coincidencias de un carácter en mayúsculas seguido de tres dígitos:

'NOTA: este código necesita una referencia a la librería Microsoft VBScript Regular Expression type
Dim re As New RegExp
Dim ma As Match
re.Pattern = "[A-Z][0-9][0-9][0-9]"  'uppercase char followed by 2 digits
re.IgnoreCase = False                'case sensitive search
re.Global = True                     'find all the occurrences
For Each ma In re.Execute(txtSource.Text)
Print "Found '" & ma.Value & "' at index '" & ma.FirstIndex
Next

Because the special d reqular expression sequence means "a digit character", the Pattern property in the above example could be assigned also as follows:
re.Pattern = "[A-Z]ddd"