Looping thought Dates

I'm quite new to VB and I'm trying to figure out how I can loop between two dates. The result should be an xml file which I can import in a different application. Sadly the XML DTD doesn't allow me to use an enddate, so i will need to print each date in a range seperately. This is what I have so far.

vacDay is not specified, it's where the new date should come everytime in the loop.

Love to hear some suggestions.

intRowCount = 8

With Sheets("Agent")
    Do Until .Cells(intRowCount, 1) = ""
    
    'Read data from sheet
    Action = .Cells(intRowCount, 1)                     'New of Change
    ttvID = .Cells(intRowCount, 84)
    
    vacActivity = "Instroom"
    vacPeriod1_from = .Cells(intRowCount, 50)
    vacPeriod1_to = .Cells(intRowCount, 51)
    vacPeriod2_from = .Cells(intRowCount, 52)
    vacPeriod2_to = .Cells(intRowCount, 53)
    vacPeriod3_from = .Cells(intRowCount, 54)
    vacPeriod3_to = .Cells(intRowCount, 55)
    
    vacDay1 = .Cells(intRowCount, 56)
    vacDay2 = .Cells(intRowCount, 57)
    vacDay3 = .Cells(intRowCount, 58)
    vacDay4 = .Cells(intRowCount, 59)
    vacDay5 = .Cells(intRowCount, 60)
    vacDay6 = .Cells(intRowCount, 61)
    
    'exc_date = .Cells(intRowCount, 2)
    'code = .Cells(intRowCount, 4)
    vac_year = .Cells(intRowCount, 71)
    vac_group = .Cells(intRowCount, 136)

    'Write data to text file
    If Action = "New" Then
        Print #intFile, "<agent>"
        Print #intFile, "   <id>" & ttvID & "</id>"

    'If vacation period 1 is filled, loop between dates and print each date where vacDay.
        If vacPeriod1_from <> "" And vacPeriod1_to <> "" Then
        Do Until vacPeriod1_from = vacPeriod1_to
            Print #intFile, "   <schedule>"
            Print #intFile, "       <day>" & Format(vacDay, "d") & "</day><month>" & Format(vacDay, "m") & "</month><year>" & Format(vacDay, "yyyy") & "</year>"
            Print #intFile, "       <startdate>"
            Print #intFile, "          <day>" & Format(vacDay, "d") & "</day><month>" & Format(vacDay, "m") & "</month><year>" & Format(vacDay, "yyyy") & "</year>"
            Print #intFile, "       </startdate>"
            Print #intFile, "       <code>" & vacActivity & "</code>"
            Print #intFile, "       <vacationGroup>" & vac_group & "</vacationGroup>"
            Print #intFile, "       <vacationYear>" & vac_year & "</vacationYear>"
            Print #intFile, "   <schedule>"
            Print #intFile, "</agent>"
        Loop
    
        
        intRowCount = intRowCount + 1
    Loop
End With

In this case the date would be in vacPeriod1_from and vacPeriod2_to. For example 2015-05-01 and 2015-05-15

vacPeriod1_from = .Cells(intRowCount, 50)
    vacPeriod1_to = .Cells(intRowCount, 51)

Thanks! It works great