datediff igen igen

hvorfor virker det her ikke.... den siger der er en fejl i datediff linien

Private Sub Form_Load()
Dim fra, til As Date
Dim x, y As Integer

 
fra = Now
til = Now + 5
  y = DateDiff(d, fra, til)

For x = 1 To x = y

txtdato(x).Text = fra+1


Next

End Sub