11. Coins

Sub Coins()
    Dim change, coinsChange As Double
    change = 0.56
    coinsChange = change * 100

    Dim count As Integer

    Do While coinsChange > 0
        If coinsChange >= 200 Then
            coinsChange = coinsChange - 200
        ElseIf coinsChange >= 100 Then
            coinsChange = coinsChange - 100
        ElseIf coinsChange >= 50 Then
            coinsChange = coinsChange - 50
        ElseIf coinsChange >= 20 Then
            coinsChange = coinsChange - 20
        ElseIf coinsChange >= 10 Then
            coinsChange = coinsChange - 10
        ElseIf coinsChange >= 5 Then
            coinsChange = coinsChange - 5
        ElseIf coinsChange >= 2 Then
            coinsChange = coinsChange - 2
        ElseIf coinsChange >= 1 Then
            coinsChange = coinsChange - 1
        Else
            Exit Do
        End If

        count = count + 1

    Loop

    Debug.Print count

End Sub