Private Sub Command6_Click() 'Enviar lote para webservices de recepcao Dialog1.Filter = "xml|*.xml" Dialog1.ShowOpen Dim arquivo As String arquivo = Dialog1.FileName Dim nfe As nfec.nfecsharp Set nfe = New nfec.nfecsharp Dim retorno As String retorno = nfe.NfeRecepcao(arquivo) Text1.Text = retorno End Sub