set HTML = WebBrowser1.Document For Each HTMLI In HTML.getElementsByTagName("textarea") If HTMLI.Id = "vB_Editor_001_textarea" Then HTMLI.Value = titulo End If Next