I didn't correct that line....
ALSO, at the top of all your code pages place these line of code...
Option Explicit On
Option Strict On
Dim MyDate As Date
MyDate = Now.AddDays(30)
lblDaysLeft.Text = "Days Left Until Trial Expires: " & DateDiff(DateInterval.Day, Now.Today, MyDate)