Dim lnDateAsTicks As Double = 0 Dim ldNewDate As Date Dim ldDate As Date = Date.Now MessageBox.Show(ldDate.ToString) lnDateAsTicks = ldDate.Ticks ldNewDate.AddSeconds(lnDateAsTicks) MessageBox.Show(ldNewDate.ToString)I can get the lnDateAsTicks. But, when I try to add that number of ticks to an empty date value, I end up with an error.