Public Class Form1

  '//////////////CREATED BY ZEKI OZYILMAZ for CST112
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Calculates the cost per copy
        'Step0. Declarations
        Dim total As Double
        Dim copy As Integer

        'Step1. Input
        copy = Val(Me.TextBox1.Text)
        'Step2. Process
        If copy <= 100 Then
            total = copy * 0.05
        Else
            total = (copy - 100) * 0.03 + 5
        End If
        'Step3. Output
        If total < 1 Then
            ListBox1.Items.Add("Your total is " & total & "¢")
        Else
            ListBox1.Items.Add("Your total is $" & total)

        End If
    End Sub
End Class