Dim arrDate As New List(Of Date)
Dim dFromDate As Date = Convert.ToDateTime("28-Jan-2014")
Dim dToDate As Date = dFromDate.AddMonths(1)
Dim dDate As DateTime = dFromDate
While (dDate <= dToDate)
arrDate.Add(dDate.AddDays(1))
End While
For Each item In arrDate
Console.Write(item)
Next