Private Function StripHTML(ByRef sTexteHTML As String) As String Dim oReg As New RegExp oReg.Pattern = "(<[^>]+>)" oReg.Global = True StripHTML = oReg.Replace(sTexteHTML, vbNullString) End Function