Function ErrorXML(sFaultCode, sSubvalue, sReason, sErrorCode, sMessage)
   Dim sXML
   
   sXML = "<env:Envelope xmlns:env="
   sXML = sXML & "'http://schemas.xmlsoap.org/soap/envelope/'>"
   sXML = sXML & vbNewLine & "<env:Body>" & vbNewLine
   sXML = sXML & "<env:Fault>" & vbNewLine
   sXML = sXML & "  <env:Code>" & vbNewLine
   sXML = sXML & "    <env:Value>env:"&sFaultCode&"</env:Value>" & vbNewLine
   sXML = sXML & "    <env:Subcode>" & vbNewLine
   sXML = sXML & "      <env:Value>"&sSubvalue&"</env:Value>" & vbNewLine
   sXML = sXML & "    </env:Subcode>" & vbNewLine
   sXML = sXML & "  </env:Code>" & vbNewLine
   sXML = sXML & "  <env:Reason>" & vbNewLine
   sXML = sXML & "    <env:Text>"&sReason&"</env:Text>" & vbNewLine
   sXML = sXML & "  </env:Reason>" & vbNewLine
   sXML = sXML & "  <env:Detail>" & vbNewLine
   sXML = sXML & "    <o:orderFaultInfo "
   sXML = sXML & "    xmlns:o='http://www.sernaferna.com/soap/ordersystem'>" 
   sXML = sXML & vbNewLine
   sXML = sXML & "      <o:errorCode>"&sErrorCode&"</o:errorCode>" & vbNewLine
   sXML = sXML & "      <o:message>"&sMessage&"</o:message>" & vbNewLine
   sXML = sXML & "    </o:orderFaultInfo>" & vbNewLine
   sXML = sXML & "  </env:Detail>" & vbNewLine   
   sXML = sXML & "</env:Fault>" & vbNewLine
   sXML = sXML & "</env:Body>" & vbNewLine
   sXML = sXML & "</env:Envelope>"	
   ErrorXML = sXML
End Function