VB6 capturar da dados do site.

Senhores bom dia.
Estou fazendo um robô para capturar informações de um site.
Consegui entrar no site, acessar alguns dados, em seguida ele abre aparentemente um grid que devemos posicionar o mouse sobre ele e clicar para ter acesso a este dado, e fazer isso um a um.
Gostaria se possivel alguem me dizer como posicionar e clicar o mouse neste grid e rolar um a um para capturar os dados.
Fico grato, segue o código.

Obrigado a todos.

Private Sub Command1_Click()
    Dim ie As InternetExplorer
    Dim ie2 As InternetExplorer

    Dim C
    Dim ULogin As Boolean, ieForm
    Dim MyPass As String, MyLogin As String
    Dim sCNPJ As String
    Dim sDi As String

    On Error GoTo Trata_Erro

redo:

    Set ie = New InternetExplorer
    Set ie2 = New InternetExplorer

    ie.Visible = True

    ie.Width = 800


    ie.Navigate "http://cib.brasilglobalnet.gov.br/frmPesquisa.aspx"

    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop

    ie.Document.All("cphCentral_ddlEstado").Value = "SP"
    ie.Document.All("cphCentral_imbPesquisarEmpresas").Click
    Sleep (10000)

    ie.Document.All("headerDataGrid").linhaMouseOut(1).Click

Trata_Erro:

    Screen.MousePointer = vbDefault


    Select Case Err.Number
        Case 91

            Err = 0

            Sleep (10000)

            Do Until ie.ReadyState = READYSTATE_COMPLETE
            Loop


            Exit Sub
    End Select
    Err = 0


End Sub