'Consulta Situação' Private Sub cmdCsSituacao_Click(Index As Integer) Dim chCTe As String chCTe = InputBox("Consulta Situação CT-e:", "Informe a chave do CT-e (44 numeros):", 1) If chCTe <> Empty Then 'funcao para consultar lote enviado Dim asscte As asscshcte.asscshcte Set asscte = New asscshcte.asscshcte Dim ret As String ret = asscte.CTeConsulta(chCTe) txtStatus.Text = txtStatus.Text + "(6) Consulta Situação:" + vbCrLf + ret + vbCrLf End If End Sub