dim fecha as string dim fecha1 as string Fecha = Format$(Date, "yyyy/MM/dd") Fecha1 = Format$(Date + 15, "yyyy/MM/dd")