Private Sub Form_Load()
Const CBR = "http://........."

    Dim mHTMLDocument As MSHTML.IHTMLDocument
    
    'загрузка
    WebBrowser0.Navigate "http://geowap.mobi/sms/write.php?k=24&wap=xhtml"
    While WebBrowser0.Document Is Nothing
        DoEvents
    Wend
    'присваиваем html документ
    Set mHTMLDocument = WebBrowser0.Document
    'получаем элемент, используя коллекцию 'All'
        DoEvents
    Set mInputElement = mHTMLDocument.all.num
    mInputElement.Value = "89545"
    'установка фокуса
    mInputElement.setActive
        DoEvents
    Set mInputElement = mHTMLDocument.all.mnum
    mInputElement.Value = "cjfrf@mail"
    'установка фокуса
    mInputElement.setActive
        DoEvents
    Set mInputElement = mHTMLDocument.all.msg
    mInputElement.Value = "Спешу сообщить"
    'установка фокуса
    mInputElement.setActive
    
End Sub