Automatizar llenado de formulario web que contiene richtextbox

Hola a todos,

Estoy intentando crear una macro que me automatice un formulario web. Consigo rellenar los textbox normales utilizando el siguiente código pero no sé como conseguirlo en los richtextbox que contiene.

Set ie = CreateObject("InternetExplorer.Application")

With ie

.Visible = True

.Navigate direccion

Do While ie.ReadyState <> 4 And ie.Busy = True

DoEvents

Loop

End With

Set campo1=ie.Document.getelementbyid(etiqueta)

campo1.value=valor

Espero me podáis dar alguna idea

Un saludo