求助！刚刚接触vba，这段代码麻烦各位帮我看看问题出在哪儿了，运行到”.send”时就报“运行”不知什么情况

'Option Explicit

Sub test()
    For r = 3 To Range("A1").CurrentRegion.Rows.Count
        dm = Cells(r, 1).Value
        If Val(dm) < 600000 Then
            Url = "http://qt.gtimg.cn/q=sz" & dm
        Else
            Url = "http://qt.gtimg.cn/q=sh" & dm
        End If
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", Url, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 3).Value = sp(3)
                Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
            Else
                Cells(r, 3).Value = "证券代码错啦！"
            End If
        End With
    Next
End Sub

检查网址是不是写错了，特别是http协议/https协议，域名解析。
如果是提交表单，用POST而不是GET，具体要看对方服务器怎么处理的。