Function StripHTML(sTexteHTML) Dim oReg Set oReg = CreateObject("VBScript.RegExp") oReg.Pattern = "(<[^>]+>)" oReg.Global = True StripHTML = oReg.Replace(sTexteHTML, vbNullString) End Function