尝试多次也不能获取源码，请教原因

Private Sub Command1_Click()
   Dim h As Object, s As String
    
    Set h = CreateObject("Microsoft.XMLHTTP")
    h.Open "GET", "http://bacc.aus-link.net/ebacc_aus999/member/member-game-result.php?hidRoomSearch=1&AccCode=&gamename=1&cmbRoomNo=-1&txtGameNo=&DateFrom_hidden=&DateFrom_input=%E9%80%89%E6%8B%A9%E6%97%A5%E6%9C%9F&dc_DateFrom_Calendar=%253Cx%2520PostData%253D%25222010x4x-1x-1x-1%2522%253E%253C%2Fx%253E&DateTo_hidden=&DateTo_input=2009-4-17&dc_DateTo_Calendar=%253Cx%2520PostData%253D%25222010x4x-1x-1x-1%2522%253E%253C%2Fx%253E", False
    h.Send
    If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
    Text1.Text = sEnd Sub小弟想获取这个网页的源码，尝试多次也不成功。如果只从IE打开，是可以读取到的，但是用VB控件就获取不了。请指教。谢谢大家。