Private Function FileText(filename$) As String
    Dim handle As Integer
    handle = FreeFile
    Open filename$ For Input As #handle
    FileText = Input$(LOF(handle), handle)
    Close #handle
End Function

Public Sub sendFileToUrl(filename As String, url As String)
    On Local Error GoTo errors

    Dim xml As New MSXML2.XMLHTTP

    '.ServerXMLHTTP
    Dim dataToSend As String
    'Set xml = CreateObject("MSXML2.ServerXMLHTTP")

    Dim doc As New MSXML2.DOMDocument
    doc.preserveWhiteSpace = True
    doc.async = False

    If Dir(filename) <> "" Then
        doc.Load filename
        dataToSend = FileText(filename)

        xml.open "POST", url, False, Empty, Empty
        xml.setRequestHeader "Content-Type", "text/xml"
        xml.send doc.xml 'dataToSend

        statusCode = xml.Status
        If statusCode = 200 And Not IsNull(xml.responseXML) Then
            responseText = xml.responseXML.xml
        Else
            responseText = xml.responseText
        End If
        Debug.Print statusCode
        Debug.Print responseText
    End If

errors:
    If Err.Number > 0 Then
        If showErrorMessage Then MsgBox ("Error " + Str(Err) + " : " + Error$(Err))
    End If

    Set xml = Nothing
End Sub

java.io.StreamCorruptedException: invalid stream header: 50532831
at java.io.ObjectInputStream.readStreamHeader(ObjectInputStream.java:783)
at java.io.ObjectInputStream.(ObjectInputStream.java:280)
at com.bbt.convert.Base64.decodeToObject(Base64.java:883)
at com.bbt.convert.BBTConvertDATA.main(BBTConvertDATA.java:218)
error: Parse error occurred – null
java.lang.NullPointerException
at com.bbt.convert.BBTConvertDATA.main(BBTConvertDATA.java:218)

Can you please send some source code examples doing the stuff you are describing here?

Thanks.
-Srinath.