Tatsächlich. So funktionierts. Vielen Dank!
' Set the regular expression pattern to match the desired format Set objRegEx = CreateObject("VBScript.RegExp") objRegEx.Pattern = "\D\d{2}\.\d{3,4}\D" objRegEx.Global = True