'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