Проблема с while

Sub r2()
s = Cells(1, 1)
   Do While s >= 500
    s = s - 500 And k = k + 1 And Cells(2, 2) = k
    Loop
   Do While s >= 100
    s = s - 100 And k = k + 1
    Loop
   Do While s >= 500
    s = s - 50 And k = k + 1
    Loop
   Do While s >= 10
    s = s - 10 And k = k + 1
    Loop
   Do While s >= 5
    s = s - 5 And k = k + 1
    Loop
   Do While s >= 2
    s = s - 100 And k = k + 1
    Loop
   Do While s >= 1
    s = s - 100 And k = k + 1
    Loop
Cells(2, 2) = k
  
  
End Sub

Option Compare Database
Option Explicit
 
Sub r2()
Dim s As Long, k As Long
s = 1683
Debug.Print "summa = "; s
Debug.Print "номиналы:";
   Do While s >= 500
    s = s - 500: k = k + 1
    Debug.Print 500;
    Loop
   Do While s >= 100
    s = s - 100: k = k + 1
    Debug.Print 100;
    Loop
   Do While s >= 50
    s = s - 50: k = k + 1
    Debug.Print 50;
    Loop
   Do While s >= 10
    s = s - 10: k = k + 1
    Debug.Print 10;
    Loop
   Do While s >= 5
    s = s - 5: k = k + 1
    Debug.Print 5;
    Loop
   Do While s >= 2
    s = s - 2: k = k + 1
    Debug.Print 2;
    Loop
   Do While s >= 1
    s = s - 1: k = k + 1
    Debug.Print 1;
    Loop
''Cells(2, 2) = k
Debug.Print
Debug.Print "итого денежных знаков:"; k
'' summa = 1683
''номиналы: 500  500  500  100  50  10  10  10  2  1
''итого денежных знаков: 10
  
End Sub

Sub r2()
s = Cells(1, 1): k = 0
   k = k + s \ 500: s = s Mod 500
   k = k + s \ 100: s = s Mod 100
   k = k + s \ 50: s = s Mod 50
   k = k + s \ 10: s = s Mod 10
   k = k + s \ 5: s = s Mod 5
   k = k + s \ 2: s = s Mod 2
   k = k + s \ 1
Cells(2, 2) = k
End Sub

Sub r2()
arr = Array(500, 100, 50, 10, 5, 2, 1)
s = Cells(1, 1): k = 0
For i = 0 To UBound(arr)
   k = k + s \ arr(i): s = s Mod arr(i)
Next
Cells(2, 2) = k
End Sub