FONTE NFE VB.NET

    Const PDF_PRINTERNAME As String = [Ô]Bullzip PDF Printer[Ô]
    Const PRINTER_PROGID As String = [Ô]Bullzip.PDFPrinterSettings[Ô]


            Dim obj As New Object

            obj = CreateObject(PRINTER_PROGID)
            obj.SetValue([Ô]Output[Ô], [Ô]nomenota.pdf[Ô])
            obj.SetValue([Ô]ConfirmOverwrite[Ô], [Ô]no[Ô])
            obj.SetValue([Ô]ShowSaveAS[Ô], [Ô]never[Ô])
            obj.SetValue([Ô]ShowSettings[Ô], [Ô]never[Ô])
            obj.SetValue([Ô]ShowPDF[Ô], [Ô]no[Ô])
            obj.SetValue([Ô]RememberLastFileName[Ô], [Ô]no[Ô])
            obj.SetValue([Ô]RememberLastFolderName[Ô], [Ô]no[Ô])
            obj.WriteSettings(True)


            PrintDialog1.Document.DefaultPageSettings.PrinterSettings.PrinterName = PDF_PRINTERNAME
            PrintDialog1.Document.Print()

            Dim runonce As String
            runonce = obj.GetSettingsFileName(True)
            While Dir(runonce, FileAttribute.Normal) <> [Ô][Ô]
                Sleep(100)
            End While

Citação:

:
Boa tarde

Eu estou trabalhando em um projeto para consultar a situação das NFe,
Estou utilizando o VS 2008 com o VB.NET,
Criei o projeto adicionei o WEBReference do SVRS e criei as instruções para que o sistema me retorne a situação da NFe, quando eu realizo uma pesquisa com uma chave de acesso do RS o sistema retorna a situação exata da NFe, porem se eu consultar uma chave de acesso de SC ele me retorna o erro 226 [Ô]Rejeicao: Codigo da UF do Emitente diverge da UF autorizadora[Ô], lembrando que SC faz parte do SVRS, alguem sabe o que devo alterar para corrigir este ponto?

Código:
Dim XMLConteudo As String
Dim chave As String = TextBox1.Text

XMLConteudo = [Ô]<?xml version=[Ô] & Chr(34) & [Ô]1.0[Ô] & Chr(34) & [Ô] encoding=[Ô] & Chr(34) & [Ô]UTF-8[Ô] & Chr(34) & [Ô] ?><consSitNFe xmlns=[Ô] & Chr(34) & [Ô]http://www.portalfiscal.inf.br/nfe[Ô] & Chr(34) & [Ô] xmlns:ds=[Ô] & Chr(34) & [Ô]http://www.w3.org/2000/09/xmldsig#[Ô] & Chr(34) & [Ô] versao=[Ô] & Chr(34) & [Ô]2.00[Ô] & Chr(34) & [Ô]><tpAmb>1</tpAmb><xServ>CONSULTAR</xServ><chNFe>[Ô] + TextBox1.Text + [Ô]</chNFe></consSitNFe>[Ô]

Dim myXMLDoc As New XmlDocument()
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(XMLConteudo)

[ô]carrego o conteudo do XML...
Dim xmlDados As XmlNode
xmlDados = myXMLDoc.DocumentElement

Dim obj As New SVRS.NfeConsulta2
Dim cabec As New SVRS.nfeCabecMsg

cabec.cUF = [Ô]43[Ô]
cabec.versaoDados = [Ô]2.00[Ô]
obj.nfeCabecMsgValue = cabec

[ô]seleciona o certificado.
Dim cert As New X509Certificate2([Ô]c:certi.pfx[Ô], [Ô]******[Ô], X509KeyStorageFlags.MachineKeySet Or X509KeyStorageFlags.PersistKeySet)
Dim store As New X509Store(StoreName.My, StoreLocation.LocalMachine)
Dim collection As New X509Certificate2Collection
Dim oX509Cert As X509Certificate2 = New X509Certificate2()
store.Open(OpenFlags.ReadWrite)
store.Add(cert)
collection = store.Certificates
oX509Cert = collection.Item(0)

Dim certificado As X509Certificate2 = oX509Cert
obj.ClientCertificates.Add(certificado)
TextBox3.Text = obj.nfeConsultaNF2(xmlDados).OuterXml

Citação:

:
Putzzzz Vanderval!

Eu ia fazer uma pergunta exatamente sobre como consultar a situação de uma NFe!!!

Vou estudar seu post.

Mas já tenho algumas dúvidas:

Eu terei que utilizar o certificado digital da minha empresa para acessar apenas a situação? Continuando nesse pensamento, eu vi no seu código que você declara variáveis do tipo: X509Certificate2. Como eu faço para chamar isso no VB.net? Você utiliza alguma biblioteca do VB.net (include alguma_coisa?). Aqui utilizo o smart card via porta USB. Alguém sabe como faço para usar isso?

Eu consigo ler normalmente o xml com as bibliotecas do VB, mas não faço a menor ideia de como consultar a situação do mesmo. Desculpe se fiz perguntas banais, mas como programador solo e amador, falta tempo para estudar a fundo isso, já que minha função verdadeira é auxiliar de escritório! Qualquer ajuda é bem vinda!