Consumir WebService do SPC com Autenticação - VB6

Amigos, boa tarde.

Preciso enviar o XML para o WebService do SPC, mais ele precisa de usuário e senha para autenticar.

Eu consigo testar pelo SoapUI sem problemas.

Tenho o código abaixo, mais não estou sabendo onde informar o usuário e senha nos fontes do VB6.

- Criando os Objetos DOMDocument e XMLHTTP

Set objDom = CreateObject("MSXML2.DOMDocument")

Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")

- Carregar o XML

objDom.async = False

objDom.LoadXml XmlBody

- Abra a conexão do serviço da Web

objXmlHttp.open "POST", AsmxUrl, False

- Criando o cabeçalho XML

objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"

objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl

- Enviando o comando para abrir a solicitação XML

objXmlHttp.send objDom.xml

Por favor, alguém pode me ajudar.

Grato.