VBA выходит, пока
Do While True
count = count + 1
If count = 10 Then
Exit Do
End If
Loop
VasteMonde
Do While True
count = count + 1
If count = 10 Then
Exit Do
End If
Loop