Se agrega código de SisFac en VB