With GridACode
        .ColumnAdd "C", "C"
        .ColumnAdd "T", "T"
        .ColumnAdd "Text", "Text", , , , TYPE_EMAIL Or TYPE_URL
        .ColumnAdd "MailCode", "MailCode"
        .ColumnAdd "UD", "UD"
        .ColumnAdd "MA", "MA"

Private Sub GridACode_OnLinkClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sLink As String)
    With GridACode
        If .Text(nRow, 1) = 3 Then 'eMail
            .ProcessLink nRow, nCol
        End If
        If .Text(nRow, 1) = 6 Then 'URL
            .ProcessLink nRow, nCol
        End If
    End With
End Sub