99 Bottles of Beer (with very strict drinking rules)

''============================================================================
''----------------------------------------------------------------------------
' 99_bottles.vb - 99 Bottles Of Beer Lyrics.
'       (c) Damion 'Phr0z3n.dev' Tapper, 2013.
'       Email: Phr0z3n.Dev@Gmail.com

' NOTE: Secure API is implemented for responsible drinking.
''----------------------------------------------------------------------------
''============================================================================

' WARNING: Drink responsibly!
Option Explicit On
Option Strict On

Module mainModule

    Sub Main()
        Dim bottles_of_beer As New Integer()

        Console.WriteLine(">>------------------> 99 Bottles Of Beer Lyrics <------------------<<" & vbNewLine)

        Dim beer_buffer As String

            For bottles_of_beer = 99 To 1 Step -1
                beer_buffer = bottles_of_beer & " bottle"

                    If bottles_of_beer <> 1 Then
                        beer_buffer += "s"
                    End If

                beer_buffer += " of beer on the wall, " & bottles_of_beer & " bottle"

                    If bottles_of_beer <> 1 Then
                        beer_buffer += "s"
                    End If

                beer_buffer += " of beer."

                Console.WriteLine(beer_buffer)


                beer_buffer = "Take one down and pass it around, "

                    If bottles_of_beer - 1 <> 0 Then
                        beer_buffer += (bottles_of_beer - 1).ToString()
                    Else
                        beer_buffer += "no more"
                    End If

                beer_buffer += " bottle"

                    If (bottles_of_beer - 1) <> 1 Then
                        beer_buffer += "s"
                    End If

                beer_buffer += " of beer on the wall." & vbNewLine

                Console.WriteLine(beer_buffer)
            Next

        Console.WriteLine("No more bottles of beer on the wall, no more bottles of beer.")
        Console.WriteLine("Go to the store and buy some more, 99 bottles of beer on the wall." & vbNewLine)
        Console.WriteLine(">>------------------------------->+<-------------------------------<<")
    End Sub

End Module