Dim nProt As String = String.Empty If cklTrans.GetItemChecked(0) And (go = True) Then go = False txtLogTrans.Text += "Método: nfse.WsRecepcaoLoteRps." & vbCr & vbLf Application.DoEvents() Dim tmp As String = nfse.WsRecepcaoLoteRps(txtPathLoteRPS.Text) txtLogTrans.Text += "#RETORNO: " & tmp & vbCr & vbLf & vbCr & vbLf If tmp.IndexOf("rotocolo") > 0 Then nProt = tmp.Replace("Protocolo de Recebimento: #", String.Empty).Trim() go = True End If End If