function actualdate     'call this function in your script

b = date
a=dateadd("d",4,b)

  msgbox(a)
  day1=day(a)
  If day1<10 Then
  day1= 0 & day1
  End If

 msgbox(day1)
 month1=month(a)
 If month1< 10 Then
 month1= 0 & month1
 End If

 msgbox(month1)
 year1=year(a)
 msgbox(year1)
 yy=right(year1,2)
 msgbox(yy)

getnewdate=month1&"/"&day1&"/"&yy
msgbox(getnewdate)

actualdate=getnewdate

end function