Visual Basic - Rellenar campos de una web con VB 6

Public Class Form1

    Private mUserName As HtmlElement

    Private mPassword As HtmlElement

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim sURL As String = "http://www.ospedycdirecto.org.ar/"

        Me.WebBrowser1.Navigate(sURL)

    End Sub

    Private Sub btnPopulate_Click(sender As Object, e As EventArgs) Handles btnPopulate.Click

        'El campo de usuario y password esta dentro de un elemento IFRAME.

        mUserName = Me.WebBrowser1.Document.Window.Frames(0).Document.All.Item("txtUsuario")

        mPassword = Me.WebBrowser1.Document.Window.Frames(0).Document.All.Item("txtPassword")

        mUserName.InnerText = "nthaxor@hotmail.com  "

        mPassword.InnerText = "palabra_secreta_no_la_puedo_divulgar"

    End Sub

End Class

Option Explicit

'Componente: WebBrowser Component

'Referencia: Microsoft HTML Object Library

Private Sub Command1_Click()

        Dim mUserName As Object

        Dim mPassword As Object

        'txtUsuario y txtPassword estan dentro de un elemento IFRAME.

        'Existe un IFRAME en todo el documento. Por esa razon el indice es cero.

        Set mUserName = Me.WebBrowser1.Document.frames(0).Document.All.Item("txtUsuario")

        Set mPassword = Me.WebBrowser1.Document.frames(0).Document.All.Item("txtPassword")

        mUserName.innerText = "nthaxor@hotmail.com"

        mPassword.innerText = "mi_clave_secreta"

End Sub

Private Sub Form_Load()

  Dim sURL As String

  sURL = "http://www.ospedycdirecto.org.ar/"

  Me.WebBrowser1.Navigate sURL

End Sub