Клиент обязан заплатить в кассу S р. У него имеются 1,

Какое-то абстрактное задание)

Почему же? Вполне конкретное. Упрощенный вариант "Задачи о сдаче".

Только условие "без массивов" мне не нравится. Или делать процедуры, либо придется глупо дублировать одно и тоже семь раз.

Private Sub CommandButton1_Click()

Dim s As Integer, z As Integer

Dim t As String

t = "Для оплате в кассе нужны:"

s = CInt(InputBox("Введите сумму оплаты"))

Do While s gt; 0

If s gt;= 500 Then

s = s - 500: k = k + 1

ElseIf s gt;= 200 Then

s = s - 200: m = m + 1

ElseIf s gt;= 100 Then

s = s - 100: n = n + 1

ElseIf s gt;= 50 Then

s = s - 50: z = z + 1

ElseIf s gt;= 10 Then

s = s - 10: v = v + 1

ElseIf s gt;= 5 Then

s = s - 5: h = h + 1

ElseIf s gt;= 2 Then

s = s - 2: f = f + 1

ElseIf s gt;= 1 Then

s = s - 1: d = d + 1

End If

Loop

If k gt; 0 Then

t = t + " " amp; k amp; " по 500 рублей, "

t = t + " " amp; m amp; " по 200 рублей, "

t = t + " " amp; n amp; " по 100 рублей, "

t = t + " " amp; z amp; " по 50 рублей, "

t = t + " " amp; v amp; " по 10 рублей, "

t = t + " " amp; h amp; " по 5 рублей, "

t = t + " " amp; f amp; " по 2 рублей, "

t = t + " " amp; d amp; " по 1 рублей, "

Cells(10, 1) = t

End If

End Sub