If your server is Win32, you could use the following function to put a page in a string. It’s based upon a service of the MSXML library, which installation is an easy task (and maybe it’s a service already running)
Function GetPage( url As String ) As String
Dim objHttp As Variant
Set objHttp = CreateObject( "Msxml2.ServerXMLHTTP" )
Call objHttp.Open( "GET", url, False )
Call objHttp.Send()
If objHttp.status <> 200 Then
GetPage = "FAILED (status: " & objHttp.status & ")"
Else
Dim contentType As String
contentType = objHttp.getResponseHeader( "Content-Type" )
If contentType = "text/html" Then
GetPage = objHttp.responseText
Else
GetPage = "Not HTML (type: " & contentType & ")"
End If
End If
Set objHttp = Nothing
End Function
(revised text from my own comment 12271511 at Experts-Exchange)