Dim client As New webserviceICLP.SportingWS '(or egapiClient in VB2008) 
For Each item As webserviceICLP.mapItem In client.getMemberPointsAvailable("xxxxx", "yyyy", "123456789") 
MsgBox(item.key & vbNewLine & item.value) 
Next 

Dim wsICLP As New webserviceICLP.SportingWS 
Dim MyParams() As webserviceICLP.mapItem = {New webserviceICLP.mapItem} 
MyParams = wsICLP.getMemberPointsAvailable("xxxxx", "yyyy", "123456789") 
MsgBox(SerializeToXML(MyParams)) 
Public Shared Function SerializeToXML(Of T)(ByVal obj As T) As String 
Dim returnXML As String = String.Empty 
Dim serializer As New Serialization.XmlSerializer(GetType(T)) 
Using writer As New IO.StringWriter 
serializer.Serialize(New XmlTextWriter(writer), obj) 
returnXML = writer.ToString() 
End Using 
Return returnXML 
End Function 

<?xml version="1.0" encoding="utf-16"?><ArrayOfMapItem xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" /> 

<?xml version='1.0' encoding='UTF-8'?> 
<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'> 
<soapenv:Body> 
<getMemberPointsAvailableResponse xmlns='http://v10.egapi.ws'> 
<getMemberPointsAvailableReturn xsi:type='ns1:Map' xmlns:ns1='http://xml.apache.org/xml-soap'> 
<item xmlns=''> 
<key xsi:type='xsd:string'> 
RESPONSEERRORS 
</key> 
<value xsi:type='ns2:ArrayOf_xsd_anyType' xmlns:ns2='http://rpc.xml.coldfusion'/> 
</item> 
<item xmlns=''> 
<key xsi:type='xsd:string'> 
RESPONSESUCCESS 
</key> 
<value xsi:type='xsd:string'> 
true 
</value> 
</item> 
<item xmlns=''> 
<key xsi:type='xsd:string'> 
RESPONSEDATA 
</key> 
<value xsi:type='ns1:Map'> 
<item> 
<key xsi:type='xsd:string'> 
POINTS_AVAILABLE 
</key> 
<value xsi:type='xsd:int'> 
106 
</value> 
</item> 
</value> 
</item> 
</getMemberPointsAvailableReturn> 
</getMemberPointsAvailableResponse> 
</soapenv:Body> 
</soapenv:Envelope>