Script not working correctly.

SOLVED

I have a script that is suppose to look at the date of last activity of a customer when a sales order is being written and if there is no activity for the last 720 days a message box is to pop up and let the salesperson know they are suppose to ask for new credit information. However it goes off every time no matter if it within the 720 days or not. Here is the script.

sLast = ""
sDate = ""
newDate =""
oDate =""
retVal = oBusObj.GetValue("UDF_LASTACTIVITY$", sLast)
retVal = oBusObj.GetValue("OrderDate$", sDate)
retVal = oSession.FormatDate(sLast, newDate,"%M/%D/%Y")
retVal = oSession.FormatDate(sDate, oDate,"%M/%D/%Y")
newDate = DateAdd("D",730,newDate)
if newDate < oDate then MsgBox("Please request new credit information as it has been 24 months since last activity")

 Can anyone see why it would fire every time instead of just when the difference is greater than 720.