Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack AndAlso txtTID.Text = "" Then
        'Captura o TID gravado na session pelo arquivo "Visa_Pague.aspx" 
        txtTID.Text = Me.Session("TID")
    End If
End Sub

Protected Sub btnConsulta_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
    'Faz a chamada aos componentes para obter as informações 
    Dim vi As VisaInfo = Visa.Info(txtMerchantID.Text, txtTID.Text)
    'concatena todas as variáveis de retorno
    'Veja a documentação visanet para entender para que serve cada uma delas 
    lblOut.Text = _
        "ARP: " & vi.ARP & "" & _
        "ARS: " & vi.ARS & "" & _
        "AUTHENT: " & vi.AUTHENT & "" & _
        "BANK: " & vi.BANK & "" & _
        "FREE: " & vi.FREE & "" & _
        "LR: " & vi.LR & "" & _
        "ORDERID: " & vi.ORDERID & "" & _
        "PAN: " & vi.PAN & "" & _
        "PRICE: " & vi.PRICE
    txtXML.Text = vi.ResultXML
End Sub