去除HTML代码模块：

        Public Function nohtml(ByVal str As String) 'As String '

         Dim re

         Set re = CreateObject("VBScript.RegExp")

            re.IgnoreCase = True

            re.Global = True

             re.Pattern = "(\<.[^\<]*\>)"

            str = re.Replace(str, "")

            re.Pattern = "(\<\/[^\<]*\>)"

             str = re.Replace(str, "") '去除html标签

             nohtml = str

            Set re = Nothing

        End Function

窗体调用：

text1.text=nohtml(text2.text)   '注意这个 text2.text 是包含HTML代码的字符串 但是我吧他放在变量中会报错，放在TEXT中就没问题，目前小编也没发现为啥，反正不影响使用 ，也没有去深入研究，大家使用的时候注意下就好了