I have to textboxes and want to add to 120+ 27/10/2008= which will give the new date ive got this code so far but errors appear on the dateserial bit thanks

Dim Day As Integer
Dim Month As Integer
Dim Year As Integer

TxtFT.Text = Date.Now

'Calculation (date)

DateSerial(Day, Month, Year)


TxtDN = DateSerial(2005 - 4, 5 + 4, 25 + 4)

your date serial parameter is wrong

DateSerial(Day, Month, Year)

DateSerial(Year, Month, Day)
Ex :

DateSerial(1973, 3, 70)  = 5/9/1973

-> 70 days from 1 march 1973

DateSerial(Year(now.date),Month(now.date), now.day + 100)

-> 100 days from now (today)