Finding the weekend date of a particular date

Hello All,

Could you please help me in find the weekend date of each dates.

Im generating a report , for which i need to find the weekend date of the corresponding date.

following is the code that im using to generate the dates. Please help me in generating the corresponding weekend date as well.

also attached is the output file im lookg for.


Thanks in advance

Dim startdate As Date, enddate As Date, i As Integer
startdate = ReportDate1.Value
enddate = ReportDate2.Value
i = 2
    While startdate <= enddate
    
    Sheets("sheet1").Range("E" & i) = startdate
    startdate = startdate + 1
    
    Sheets("Sheet1").Range("A" & i) = TextBox1.Text
    Sheets("Sheet1").Range("B" & i) = TextBox2.Text
    Sheets("Sheet1").Range("C" & i) = TextBox6.Text
    Sheets("Sheet1").Range("D" & i) = ComboBox1.Text
    i = i + 1
    Wend