for ... to in Loop-schleife

u = D2 'Datum aus textbox'
Do
u = u + 1
NoWeekD = 0
With ActiveSheet
lz = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte beschriebene Zeile ermitteln**
For i = 5 To lz 'beginne bei Zeile 5'
If .Cells(i, 2)  5 Then    'Wochenendtage ermitteln'
NoWeekD = NoWeekD + 1
End If
Next i
t = ((u - D1 + 1) - NoWeekD) ' Anzahl Arbeitstage zwischen heute und möglichem Termin ermitteln' _
Loop While Not s 

Mein Problem ist, dass es mir den Wert s nach jeder loop-Schleife weiterzählt und irgendwann ins unendliche geht. Der wert soll jedoch nur für die for...to schleife hochgezählt werden.
Wenn ich direkt nach dem
Do ein
s=0 einfüge, setzt es mir auch in der for...to schleife den wert jedesmal auf 0.
gibt es eine Möglichkeit, das s bei jeder neuen loop-schleife auf 0 zu setzten, jedoch in der for...to -Schleife soll es weiterzählen.
Hoffe ich konnte das Problem erläutern und freu mich auf eure Hilfe.
Danke