Cevap gelene kadar ben biraz daha kastım.. Sonuç bu:
Alıntı

Dim startTime = New DateTime(Now.Year, Now.Month, Now.Day, 0, 0, 0).Subtract(New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)).TotalMilliseconds
Dim endTime = New DateTime(Now.Year, Now.Month, Now.Day, 23, 59, 59).Subtract(New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)).TotalMilliseconds

Ay ve günüde bi string yapıp içerisine attım istediğim şekilde veri oluşturuyor. Konu kilitlenebilir yukarıdaki kod iş görüyor.