Sub lab()
Dim day As Integer, max As Integer, discount As Double
max = 5000
Do While pay <= max And day <= 6
    discount = discount + 0.9
    pay = pay + 300
   day = day + 1
   Debug.Print "discount at " & day & " day = " & discount & "% and, pay = " & pay
Loop
End Sub