Código: vb.net For i As Integer = 1 To DateDiff(DateInterval.Day, Date.Now, Date.Now.AddDays(5)) MessageBox.Show(Date.Now.AddDays(i).ToString()) Next Espero te ayude este ejemplo saludos!