从VB Excel宏代码错误 - MSXML3.DLL -2146697211系统找不到指定的资源

我使用在VB宏（Excel文件）的MSXML.HTTPRequest对象与HTTP服务器进行通信。问题是，它间歇性地引发以下错误。

MSXML3.DLL -2146697211系统找不到指定的资源。

我发现我的系统，这发生在网络下跌了，但我的客户抱怨它断断续续发生在他的机器上。鉴于他的系统Windows 7的安装，它是在工作的时候，我不认为它是没有安装正确的库的问题。他曾试图在一些网络，但它仍然失败。

Function xmlHTTPPost(strURL, strData)
  Dim objHttp

  On Error Resume Next
  xmlHTTPPost = ""
  Set objHttp = CreateObject("Microsoft.XMLHTTP")
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = CreateObject("MSXML2.XMLHTTP")
  End If
  If Err.Number <> 0 Then
      MsgBox "Error creating XMLHTTP object"
      Err.Clear
      Exit Function
  End If
  objHttp.Open "GET", strURL, False
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = Nothing
      Exit Function
  End If
  objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objHttp.setRequestHeader "User-Agent", "Mozilla Compatible (MS IE 3.01 WinNT)"
  objHttp.Send
  If Err.Number <> 0 Then
      MsgBox "Error " & Hex(Err.number) & " sending to server:" & vbCrLf & Err.description
      xmlHTTPPost = "ERROR: " & Err.Source & " " & Err.Number & " " & Err.Description
      Err.Clear
  Else
      xmlHTTPPost = objHttp.responseText
  End If
  Set objHttp = Nothing
End Function

它在我的盒子，里面是一个Windows 7 +的Microsoft Office 2007安装正常使用。

我寻觅了很多网上，和两方面的原因已经隐约提及。