Simple Webcall

Simple webcall for testing VBA execution

Sub MyMacro()

    Dim xmlhttp As Object
    URL = "http://192.168.49.123/test"
    Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
    xmlhttp.Open "GET", URL, False
    xmlhttp.Send

End Sub