Short date increment in VB

Hi All,

In my excel sheet I've the follwoing cells(see attached screenshot):
Start Date 150308
End Date 210308

In my VB script I want to increment the date 150308 (which is the 15th of March 2008) one by one until 210308(which is the 21st of March 2008).
Actually these dates are strings in my sheet.

I need to convert them to date, after increment by one, and after convert back to string.

Pls your help
beforehand thanks

Dear Roy,

Thanks for your reply,

In this case recommend me, how to write in this cell the 150308 as date, when I'm writing 150308, it is automatically converting to 7/12/2311.

Thank you

Originally Posted by royUK

Why would you store dates as strings. Use a Custom Format, ddmmyy, & the task would be much simpler.

Dear Roy,

Pls see the code which I managed to write:

Cdat = CStr(Cells(1, 4))
TempDat = Mid(Cdat, 3, 2) + "/" + Mid(Cdat, 1, 2) + "/20" + Mid(Cdat, 5, 2)
Dt = CDate(TempDat)
Dt = Dt + 1
Cdat = Format(Dt, "ddmmyy")