Hola aca te paso un ejemplo, segun como vi en vbForums tambien necesitas el TextArea.
Private Sub Command1_Click()
Dim i As Long
For i = 0 To WebBrowser1.Document.All.tags("textarea").length - 1
If WebBrowser1.Document.All.tags("textarea").Item(i).className = "box-editor" Then
WebBrowser1.Document.All.tags("textarea").Item(i).Value = "Hola Mundo"
End If
Next
For i = 0 To WebBrowser1.Document.All.tags("a").length - 1
If WebBrowser1.Document.All.tags("a").Item(i).className = "send-button button" Then
WebBrowser1.Document.All.tags("a").Item(i).Click
End If
Next
End Sub
Saludos.