Módulo para contactar con un NodeJS Server en localhost

El presente código sirve tanto para Visual Basic 6.0 (sí, todavía sirve, todavía sirve!) como para Visual Basic para Aplicaciones (Excel o VBA).

' Si estamos en Visual Basic para Aplicaciones agregar la referencia
' WinHTTP, en el menú Herramientas, Referencias, Microsoft WinHTTP Services

Function Solicitar( _
    ByVal URLBase As String _
    , Optional ByVal Puerto As Integer = 80 _
    , Optional ByVal Seccion As String = "" _
    , Optional ByVal Metodo As String = "GET" _
) As String
    
    On Error GoTo solucion

#If VBA6 Then
    Dim objXML As New WinHttpRequest
#ElseIf Win32 Then
    Dim objXML As Object
    Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
#End If
    
    objXML.Open Metodo, URLBase & ":" & Puerto & "/" & Seccion, False
    objXML.send
    
    If (objXML.Status = 404) Then
        Solicitar = "404 Error"
    Else
        Solicitar = objXML.responseText
    End If

    Set objXML = Nothing
    Exit Function
    
solucion:
    Solicitar = "Conexión inexistente"
    
End Function