Dim dateFrom, dateEnd, daysRemaining

dateFrom = Date()
dateEnd = DateSerial(2027, 1, 12)
daysRemaining = DateDiff("d", dateFrom, dateEnd)

Echo daysRemaining