Set objXMLHTTP=New MSXML2.XMLHTTP40 objXMLHTTP.Open“POST”,SPATH&"JIKKOU/NGJ020.ASP"，False objXMLHTTP.setRequestHeader "X-Numb"，"UPDATE" Set OBJXML=New MSXML2.FreeThreadedDOMDocument 40 objXMLHTTP.send OBJXML fncUpDateG010_SUB fncUpDateG010 Call subReGetRS

根据您提供的代码，假设您想要使用XMLHTTP对象发送POST请求并设置请求头来更新数据。以下是修正后的代码：

Dim objXMLHTTP
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.4.0")

Dim url, data
url = SPATH & "JIKKOU/NGJ020.ASP" ' 请求的URL
data = ""
    
objXMLHTTP.Open "POST", url, False
objXMLHTTP.setRequestHeader "X-Numb", "UPDATE"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Set objXML = CreateObject("MSXML2.FreeThreadedDOMDocument.4.0")
objXML.loadXML OBJXML

objXMLHTTP.send objXML

' 可以使用 objXMLHTTP.responseText 获取响应内容
' 可以使用 objXMLHTTP.Status 获取响应状态码

fncUpDateG010_SUB
fncUpDateG010
subReGetRS

Set objXMLHTTP = Nothing
Set objXML = Nothing

这个修正过的代码创建了一个`MSXML2.FreeThreadedDOMDocument`对象`objXML`，并使用`loadXML`方法将`OBJXML`加载到其中。然后，通过将`objXML`作为参数传递给`send`方法，将XML数据发送到服务器。

最后，根据您的需求，我假设您有一些自定义函数和子程序需要调用。在代码末尾，我添加了对这些函数和子程序的调用。

请注意，您可能需要根据实际情况进行进一步的修改。确保替换`SPATH`为您的请求路径，并根据需要设置请求的数据和其他请求头。