Public Class Bagels

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntotal.Click
        Dim total As String
        Dim bagels As Double

        bagels = txtinput.Text

        If bagels <= 0 Then
            txttotal.Text = "You have to order at least 1 bagel"
        ElseIf bagels >= 6 Then
            total = bagels * 0.6
            txttotal.Text = "The total is " + FormatCurrency(total)
        Else
            total = bagels * 0.75
            txttotal.Text = "The total is " + FormatCurrency(total)
        End If

    End Sub
End Class