Msxml2.XMLHTTP.6.0 cookies отсутствуют - VB

Формулировка задачи:

Добрый день, коллеги.
Проблема в том, что когда я отправляю запрос,
в ответе заголовка нет cookies которые должны быть.
1) Программа формирующая запрос

Sub TestSend()

sURL = "http://ogame.ru/"
MethodSend = "GET"

 Set oXMLHTTP = CreateObject("Msxml2.XMLHTTP.6.0")
 With oXMLHTTP
        .Open MethodSend, sURL, False

.setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
.setRequestHeader "Accept-Encoding", "gzip, deflate"
.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3"
'.setRequestHeader "Cache-Control", "max-age=0"
.setRequestHeader "Cache-Control", "no-cache"

.setRequestHeader "Connection", "keep-alive"
.setRequestHeader "Host", "ogame.ru"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:22.0) Gecko/20100101 Firefox/22.0"

.send

  headres = .getAllResponseHeaders()
  Debug.Print headres

End With

End Sub

2) Я просто оттрассированный запрос от Mozilla
^{Connection close
Content-Encoding gzip
Content-Length 16051
Content-Type text/html; charset=utf-8
Date Sun, 14 Jul 2013 15:53:59 GMT
P3P CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"
Server Apache
Set-Cookie SID=42k4mb4bra56l6eq6ucn7skg80; expires=Sun, 14-Jul-2013 16:53:59 GMT; path=/; domain=ogame.ru
Vary Accept-Encoding}
3)Что я получил:
^{P3P: CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"
Content-Type: text/html; charset=utf-8
X-Pad: avoid browser bug
Content-Length: 79007}
4) Что интересно, второй ответ от Mozilla просто при обновлении страницы,
когда cookies сохранены:
^{Connection close
Content-Encoding gzip
Content-Length 15994
Content-Type text/html; charset=utf-8
Date Sun, 14 Jul 2013 16:15:18 GMT
P3P CP="NOI ADM DEV PSAi COM NAV OUR OTRo STP IND DEM"
Server Apache
Vary Accept-Encoding
X-Pad avoid browser bug}
Как видите, ответ очень похож на мой усеченный.
Если у вас все работает, попробуйте запустить дважды.
Моя задача - получить SID в cookies.
Помогите пожалуйста.

Решение задачи: «Msxml2.XMLHTTP.6.0 cookies отсутствуют»

textual
                            Листинг программы 
                        

                            .send
    On Error Resume Next
    Dim t!: t = Timer + 10
    Do
      DoEvents
      headres = .getAllResponseHeaders()
      If Len(headres) Then Exit Do
    Loop While Timer < t
    On Error GoTo 0
    Debug.Print headres

                        