Question : Module to load Webpage in Access Macro?

I am using the following code to load a webpage  can anyone tell me how to get a access Macro to run the code or load the .vbs file the code is in?

Here is the code:
Sub LaunchWebEmailer()
 Dim xmlhttp: Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
          xmlhttp.Open "GET", "http://Webpage/emailer.asp", False
          xmlhttp.Send
End Sub

Answer : Module to load Webpage in Access Macro?

I'm taking off for the day but if the VBA function doesn't work, AND the vbs script does work just fine already, you can call the vbs script from your Access VBA function like this

Public Function LuanchWebEmailer()
    'Dim xmlhttp As Object
    'Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
    'xmlhttp.Open "GET", "http://governor.mt.gov/default.asp", False
    'xmlhttp.Send
    'Set xmlhttp = Nothing
   
    Dim varReturn
   
    varReturn = Shell("WScript.exe " & Chr(34) & "C:\MyFolder\SubFolder\TheNameOfTheScript.vbs" & Chr(34))
End Function

Talk to you tomorrow.
OM Gang