Dim all As HtmlElementCollection = WebBrowser1.Document.All Dim el As HtmlElement = all.Item("entryTextArea") el.InnerText = "ブログ本文テスト" ' テキストボックスに「ブログ本文」を入力