如何在VPN外部使用MSXML2.XMLHTTP对象？

如何解决如何在VPN外部使用MSXML2.XMLHTTP对象？

我在下面编写了这几行代码。当我通过VPN连接时，该代码正确运行，但在VPN外部不再运行。返回的状态码是12007 out VPN，使用VPN时返回200。

例如，您可以使用myUrl：“ https://www.boursedirect.fr/fr/marche/euronext-paris/lyxor-ep-na-us-LU1832418856-MUA-EUR-XPAR/seance” >

您知道如何解决此难题吗？

Public Function InterrogationCours(myUrl) As Double
  Dim avant as String,apres as String,cotation As String

  avant = "quotation-last bd-streaming-select-value-last"
  apres = "</span"

  On Error Resume Next
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET",myUrl,False
    .Send
    Debug.Print .Status
    If .Status = 200 Then cotation = Split(Split(Split(.responseText,avant)(1),">")(1),apres)(0)
  End With
  InterrogationCours = Nettoyage(cotation)
End Function