Private Sub cmdConsultaLote_Click(Index As Integer) Dim nProt As String nProt = InputBox("No Protocolo:", "Protocolo", 1) If nProt <> Empty Then 'funcao para consultar lote enviado Dim nfse As asscshnfse.asscshnfse Set nfse = New asscshnfse.asscshnfse Dim ret As String ret = nfse.WsConsultaLoteRps(nProt) txtStatus.Text = txtStatus.Text + "(6) Consulta Lote RPS:" + vbCrLf + ret + vbCrLf End If End Sub