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 btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
    'Faz a chamada aos componentes para obter as informações 
    Dim vc As VisaCancel = Visa.Cancel(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 = _
        "ARS: " & vc.ARS & " 
 " & _
        "LR: " & vc.LR
    txtXML.Text = vc.ResultXML
End Sub