Ver originalDim fecha_actual As String '-- Cambio el formato de fecha_actual a dia-mes-año fecha_actual = Format(Today, "dd-MM-yyy")