Dim strOk,strNo      strOk = "12312321$12312312312$12312321$"      strNo = "12312321$12312312312$12312321$sdfsd"      Function RegExpTest(patrn, strng)          Dim regEx, match, matches   ' 建立变量。          Set regEx = New RegExp   ' 建立规范表达式。          regEx.Pattern = patrn   ' 设置模式。          regEx.IgnoreCase = True   ' 设置是否区分字母的大小写。          regEx.Global = false   ' 设置全程性质。          set matches= regEx.Execute(strng)   ' 执行搜索。          for each match in matches      ' 重复匹配集合              RetStr=RetStr &"Match found at position "              RetStr=RetStr&Match.FirstIndex&".Match Value is '"              RetStr=RetStr&Match.Value&"'."&vbCRLF          Next          IF Not IsEmpty(matches) And matches(0).Value = strng Then              RegExpTest = true          Else               RegExpTest = false          End IF      End Function      MsgBox(RegExpTest("[\d+\$]+", strOk))