求大侠帮忙看看问题出在何处?

Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","地址",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "路径",2
我用这个做了一个简单的下载文件的脚本.测试是可以下载的.可是却无法运行.打开会提示下面的图.求大侠解疑.拜谢.