using multiple internet explorer page loop help to define ie

[SQUIDD]

Hi all

I want to open 6 internet explorer pages and grab data.
in my code below i have a for loop a = 1 - 6.
what is the correct way to use my a(1-6) as the new ie page.
so the part in the code should be something like "ie" & a that would equal ie1 on the 1st loop.

Sub download()

Dim ie As InternetExplorer

For a = 1 To 6
Set ie(1 - 6) = New InternetExplorer
With ie(1 - 6)

    .Visible = True
    .Navigate "web page"
    Do While ie(1 - 6).Busy: DoEvents: Loop
    Do While ie(1 - 6).ReadyState <> 4: Loop
End With

Next a

End Sub

Thanks for looking. Im ok with everything else, just not sure on the syntex for the a(1-6)
I want to open all the pages 1st, then go back to ie1 and send keys then ie2 etc
this way my data has time to load before i finally return to grab the loaded data.

Dave

 

[SQUIDD]

put another way

how to i make the following long code into a neat loop

Sub download()

Dim ie1 As InternetExplorer
Dim ie2 As InternetExplorer
Dim ie3 As InternetExplorer
Dim ie4 As InternetExplorer
Dim ie5 As InternetExplorer
Dim ie6 As InternetExplorer


Set ie1 = New InternetExplorer
With ie1

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie1.Busy: DoEvents: Loop
    Do While ie1.ReadyState <> 4: Loop
End With

Set ie2 = New InternetExplorer
With ie2

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie2.Busy: DoEvents: Loop
    Do While ie2.ReadyState <> 4: Loop
End With

Set ie3 = New InternetExplorer
With ie3

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie3.Busy: DoEvents: Loop
    Do While ie3.ReadyState <> 4: Loop
End With

Set ie4 = New InternetExplorer
With ie4

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie4.Busy: DoEvents: Loop
    Do While ie4.ReadyState <> 4: Loop
End With

Set ie5 = New InternetExplorer
With ie5

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie5.Busy: DoEvents: Loop
    Do While ie5.ReadyState <> 4: Loop
End With

Set ie6 = New InternetExplorer
With ie6

    .Visible = True
    .Navigate "http://www.gbgb.org.uk/RaceCard.aspx?dogName=Mynamesjeff"
    Do While ie6.Busy: DoEvents: Loop
    Do While ie6.ReadyState <> 4: Loop
End With

cheers

dave