Passing binary data to a web service method using XMLHttp from VBA code

[gagans]

Hi
My web service has a method which accepts byte array as parameter.
<WebMethod()> _
Public Function SendLoan(ByVal data As Byte()) As String
Dim filePath As String
filePath = System.AppDomai n.CurrentDomain .BaseDirectory( ) &
"\WorkingFiles\ "
objImportExport = New BrainImportExpo rt.BrainImportE xport
SendLoan = objImportExport .ImportLoanByLo an(data, filePath)
objImportExport = Nothing
End Function

I am calling this function from VBA client. Following is the code

Dim arr1() As Byte
ReDim arr1(Len("Data= " & xmlDoc.xml))
arr1 = StrConv(("Data= " & xmlDoc.xml), vbFromUnicode)

Dim objXMLHTTP As New MSXML2.XMLHTTP3 0
Dim strResponse As String
Dim strURL As String 'Web service url
strURL = "http://localhost/brainwebservice s/brainwebservice s.asmx/SendLoan"
objXMLHTTP.Open "POST", strURL, True
objXMLHTTP.setR equestHeader "Content-Type",
"applicatio n/x-www-form-urlencoded"
objXMLHTTP.setR equestHeader "Content-Length", UBound(arr1)
'Call web service and pass its parameters
objXMLHTTP.send arr1
'>>> Loop until the call comes back
Do Until objXMLHTTP.read yState = 4
DoEvents
Loop
'When exiting the loop, get the response from the webservice
strResponse = objXMLHTTP.resp onseText
If objXMLHTTP.stat usText = "OK" Then
MsgBox "Data sent to web services successfully"
Else
MsgBox "Error in sending data to web services"
End If
I am getting following error:
System.Argument Exception: Cannot convert to System.Byte.
Parameter name: type ---> System.FormatEx ception: Input string was not
in a correct format.
at System.Number.P arseInt32(Strin g s, NumberStyles style,
NumberFormatInf o info)
at System.Byte.Par se(String s, NumberStyles style, IFormatProvider
provider)
at System.String.S ystem.IConverti ble.ToByte(IFor matProvider
provider)
at System.Convert. ChangeType(Obje ct value, Type conversionType,
IFormatProvider provider)
at System.Convert. ChangeType(Obje ct value, Type conversionType)
at System.Web.Serv ices.Protocols. ScalarFormatter .FromString(Str ing
value, Type type)
--- End of inner exception stack trace ---
at System.Web.Serv ices.Protocols. ScalarFormatter .FromString(Str ing
value, Type type)
at System.Web.Serv ices.Protocols. ValueCollection ParameterReader .Read(NameValue Collection
collection)
at System.Web.Serv ices.Protocols. HtmlFormParamet erReader.Read(H ttpRequest
request)
at System.Web.Serv ices.Protocols. HttpServerProto col.ReadParamet ers()
at System.Web.Serv ices.Protocols. WebServiceHandl er.Invoke()
at System.Web.Serv ices.Protocols. WebServiceHandl er.CoreProcessR equest()
Earlier i was using SOAP Toolkit 3.0.It was working fine.
Please let me know if am missing anything.

Thanks in advance
Regards
gagan