Sub Main()
        Dim fifteen As Integer
        Dim fifteenout As Integer
        Dim twentyfive As Integer
        Dim twentyfiveout As Integer
        Dim thirtyfive As Integer
        Dim thirtyfiveout As Integer
        Dim income As Integer

        Console.WriteLine("Please enter your income")
        Console.WriteLine()
        income = Console.ReadLine

        If income < 9999 Then
            Console.WriteLine("0% taken off of income")
        Else
            If (income > 10000) And (income < 29999) Then
                Console.WriteLine("15% taken off income")
                fifteen = income / 15
                fifteenout = income - fifteen
                Console.WriteLine(fifteenout)
                Console.ReadLine()
            Else
                If (income > 30000) Or (income < 70000) Then
                    Console.WriteLine("25% taken off income")
                    twentyfive = income / 25
                    twentyfiveout = (income - twentyfive)
                    Console.WriteLine(twentyfiveout)
                    Console.ReadLine()
                Else
                    If income > 70000 Then
                        Console.WriteLine("35% taken off income")
                        thirtyfive = income / 35
                        thirtyfiveout = income - thirtyfive
                        Console.WriteLine(thirtyfiveout)
                    End If
                End If
            End If
        End If
    End Sub