Private Function a(Url As String) As String
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
    xmlHttp.Open "POST", Url, True
    xmlHttp.Send (Null)
    While xmlHttp.ReadyState <> 4
    DoEvents
    Wend
    a = StrConv(xmlHttp.responseBody, vbUnicode)
End Function

循环几次后 a("网址") 返回值就变成空的了，为什么。
关掉程序后有可以了，再循环几次又是空了。

While xmlHttp.ReadyState <> 4
    DoEvents
    Wend
    a = StrConv(xmlHttp.responseBody, vbUnicode

你要循环的代码，没有在while……wend之间，a根本没有参加循环。