Dim res As String = ""

    Try
        pedi.ClientCredentials.UserName.UserName = "usuario"
        pedi.ClientCredentials.UserName.Password = "*********"


        peticion.peticion.aduana = "070"
        peticion.peticion.patente = 3989
        peticion.peticion.pedimento = 8012530
        res = Convert.ToString(pedi.consultarPedimentoCompleto(peticion))
        TextBox1.Text = res
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub