Ejemplo CTGv1 en Visual Basic