Script Problem - Trying to assign a date

Trying to create a script that would read the ShipVia field and if it says "OCEAN" then it is to take the value of the Ship date and add 25 and write the date in a UDF.  Get an error message. Here is the script.

 

sDate=""
Ship=""
retVal=oHeaderObj.GetValue("RequiredExpireDate$",sDate)
retVal=oHeaderObj.GetValue("ShipVia$",Ship)
If Ship = "OCEAN" then
retVal=oBusObj.SetValue("UDF_HOUSTON_DATE$",sDate)

End If