急!求助!!取得网页内容的问题---为何只能取得部分?不能取得全部?

我在取这个网页的内容时http://gb.weather.gov.hk/wxinfo/currwx/tc_posc_0705.htm,只取得部分的,为何?
'這個程式需要一個Inet1
Private Sub GetHtmlFile(sURL As String, sFile As String)
'sUrl傳入所要抓取的檔案,sFile傳入所要存的檔名
Dim bData() As Byte
'取消連線
Inet1.Cancel
'設定連線模式
Inet1.Protocol = icHTTP
'設定連線目的
Inet1.URL = sURL
'取回資料
bData() = Inet1.OpenURL(, icByteArray)
' 將資料寫到檔案
Open sFile For Binary As #1
Put #1, , bData()
Close
Erase bData
End Sub