Dim xmlstr As Object
    Set xmlstr = CreateObject("MSXML2.ServerXMLHTTP")
    
    Dim sXML As String
    sXML = "Content-Type: text/xml;"
    sXML = "Трам пам пам куча текстов и параметров"
    
    
    xmlstr.Open "POST", "https://www.site.com/xml/xml.php", False
    xmlstr.send sXML
    Set xmlstr = Nothing

    if (!isset($HTTP_RAW_POST_DATA)) {
        $HTTP_RAW_POST_DATA = file_get_contents('php://input');
    }

		$result=mysql_query ("INSERT INTO xml ( xml_notification )
		VALUES ('".mysql_escape_string (htmlspecialchars($HTTP_RAW_POST_DATA))."');");

// VBA CODE
Private Function Upload_Data() 
    Dim strGLDepartment As String
    Dim strPOSTData As String,
    Dim strFieldValue As String
    Dim xmlhttp As Object
    
    strGLDepartment = DLookup("[GLDepartment]", "[tblUnit]")
    strPOSTData = "&gldepartment=" & strGLDepartment
        
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST", "https://XXX/employees.php"
    
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.send URLEncode(strPOSTData)
    
    If xmlhttp.Status >=  400  And xmlhttp.Status <=  599  Then
      Debug.Print "Error Occurred : " & xmlhttp.Status & " - " & xmlhttp.StatusText
    End If
    
    Set xmlhttp = Nothing
End Function
 
Function URLEncode(EncodeStr As String) As String
    Dim i As Integer
    Dim erg As String
    
    erg = EncodeStr
 
    ' *** First replace '%' chr
    erg = Replace(erg, "%", Chr( 1 ))
 
    ' *** then '+' chr
    erg = Replace(erg, "+", Chr( 2 ))
    
    For i =  0  To  255 
        Select Case i
            ' *** Allowed 'regular' characters
            Case  37 ,  43 ,  48  To  57 ,  65  To  90 ,  97  To  122 
            
            Case  1   ' *** Replace original %
                erg = Replace(erg, Chr(i), "%25")
        
            Case  2   ' *** Replace original +
                erg = Replace(erg, Chr(i), "%2B")
                
            Case  32 
                erg = Replace(erg, Chr(i), "+")
        
            Case  3  To  15 
                erg = Replace(erg, Chr(i), "%0" & Hex(i))
        
            Case Else
                erg = Replace(erg, Chr(i), "%" & Hex(i))
                
        End Select
    Next
    URLEncode = erg 
End Function
 
'*****************************************************************
'*****************************************************************
'*****************************************************************
 
// PHP CODE
$_POST = array();
parse_str( rawurldecode(file_get_contents('php://input')) , $_POST );

    Dim sXML As String
    sXML = "Content-Type: text/xml;"
    sXML = "Трам пам пам куча текстов и параметров"