webbrowser textarea no funciona

[asdexiva]

Código [Seleccionar] Expandir

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

por que este code no escribe nada en los textareas y en los inputs si ? ,si pudieras ayudarme gracias