Public Class copycenter

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

        copies = txtinput.Text

        If copies <= 0 Then
            txttotal.Text = "You have to make at least 1 copy"
        ElseIf copies > 100 Then
            total = ((copies - 100) * 0.03) + (100 * 0.05)
            txttotal.Text = "The total is " + FormatCurrency(total)
        Else
            total = copies * 0.05
            txttotal.Text = "The total is " + FormatCurrency(total)
        End If
    End Sub
End Class