WSLPG: ajusto ejemplo en VB