用正則刪除vb代碼中所有注釋的方法

'此代碼由“正則測試載入器v1.1.35”自動產生，請直接調用TestReg過程Private Sub TestReg()    Dim s As String    Dim reg As Object    s = "s = ""ssss,'xxxxxxx',ffff"" 'xxxxxxx'''''bbbbb _" & vbCrLf & _              "                           xxxxxxxffffff" & vbCrLf & _              "'adfadfadfadfad _" & vbCrLf & _              "adfadfadfadfadfadf _" & vbCrLf & _              "adfadfasdfadfadfadfa" & vbCrLf    Set reg = CreateObject("vbscript.regExp")    reg.Global = True    reg.IgnoreCase = True    reg.MultiLine = True    reg.Pattern = "'([^""\r\n]+?_\r\n)+"    s = reg.Replace(s, "'")    reg.Pattern = "'[^""\r\n]+(\r\n)"    s = reg.Replace(s, "$1")    Debug.Print sEnd Sub