Private Sub Command8_Click() 'Consultar situação da NFe: Autorizada ou Rejeitada. Dim nProt As String chnfe = InputBox("Informe o no. da nota fiscal eletrônica", "Consultar situação da nfe", "") If nProt <> Empty Then Dim nfe As nfec.nfecsharp Set nfe = New nfec.nfecsharp Text1.Text = nfe.NfeConsulta(chnfe) End If End Sub