Цикл While - VB

Формулировка задачи:

Visual Basic 6.0 Разработайте программу для решения задачи: “У школьника было S рублей. Бутылка с соком стоит P рублей. Пустая бутылка стоит B рублей. Вычислить, сколько бутылок сока может выпить школьник, если он сдает пустые бутылки и на вырученные деньги покупает новые”.

Private Sub ok_Click()
Money = s.Text
cost1 = p.Text
cost0 = b.Text
While Money > cost1
    k = k + (Money \ cost1)
    o = Money \ cost1
    Money = Money Mod cost1
    Money = Money + (o * cost0)
    o = 0
Wend
out.Caption = Money
End Sub

Программа выводит 0. Помогите понять, что не так k - общий счетчик бутылок; o - счетчик пустых бутылок

Решение задачи: «Цикл While»

textual
                            Листинг программы 
                        

                            Private Sub ok_Click()
Money = 10 's.Text
cost1 = 3 'p.Text
cost0 = 1 'B.Text
While Money >= cost1
  o = o + 1
  Money = Money - cost1 + cost0
Wend
out.Caption = o
End Sub
                        