How to run InternetExplorer with long URL from VB

[nanfei]

I use VB within MS office and would like to run IE from Excel. The codes are like these:

urlHeader = "http://bla.blablalalal"
Set IE = CreateObject("InternetExplorer.Application")
For r = 2 To 1000 Step 1
    Str = Cells(r, 2).Value
    url = urlHeader & Str
    IE.Navigate (url)
    While (IE.ReadyState <> 4)
        Application.Wait 10
    Wend
    sRet = IE.Document.DocumentElement.OuterHTML
    '........
Next r

This works fine when len(url)=<2048, but longer url is truncated by IE. Could you give me suggestions to get around this problem? Thanks a lot.

Nanfei