Visual Basic - Servicios Web

Hola a todos

Acabo de migrar de Axis1 a Axis2 los servicios que tenia creados para acceso a diferentes partes del erp de mi empresa. Accedia desde VB6 con el Soap Toolkit 3.0 y no tenia problemas para acceder a ninguno de los servicios que tenia creados pero cuando he migrado a Axis2 no puedo acceder a alguno de ellos y no se cual es la causa.
Os envio el wsdl que me genera para que lo tengais:

El codigo que utilizo es :
<pre>
Dim clnt
Dim oxml
Dim objResultNodes
Dim listaCapabilities

'On Error Resume Next
Set clnt = CreateObject("MSSOAP.SoapClient30")

Screen.MousePointer = vbHourglass

DoEvents

'Inciar Servicio Web
clnt.ClientProperty("ServerHTTPRequest") = True


'clnt.MSSoapInit "http://stjafernandez:7001/ematrix/services/GetDataFromERPService?wsdl"
'clnt.MSSoapInit "http://mxserver1:7001/ematrix/services/OfakService?wsdl"
clnt.MSSoapInit "http://stjafernandez:7001/ematrix/services/GetDataFromERPService?wsdl"

If Err <> 0 Then
MsgBox ("Respuesta erronea del Servicio Web. Verificar el Servicio URL" & vbLf & vbLf & "URGENTE !!! LLAMAR AL TEAM MANAGER: Pope-Iban-Ibai" & vbLf & vbLf & Error)
Screen.MousePointer = vbDefault
Exit Sub
End If

Lista.Clear

'Invoke the Web service method
'It returns a DataSet (two nodes list; one containing schema
' and other containing actual results)
'Set objResultNodes = clnt.leerOfak(auxOF)

listaCapabilities = clnt.getOperations(InputBox("Introduzca la OF", "Nombre"))

For i = 0 To UBound(listaCapabilities)

Lista.AddItem (listaCapabilities(i))
Next



'
''Respuesta LeerOfak
'auxCLIENTE = clnt.leerOfak(auxOF).Item(5).Text

Screen.MousePointer = vbDefault

Set clnt = Nothing

</pre>

El error que me devuelve es
Unexpected Subelement

¿Alguna Idea?

Gracias por vuestra ayuda