title: Modulus Division in VB
body: <p>I'm feeling a little overwhelmed with this. The question and the start of my code is below. Could someone tell me if this is going in the right track? If not, could you help? Any suggestions is appreciated. Thank you in advance. (This is not my final code, just the beginning of the problem).</p>
  
  <p>A customer needs a specific amount of paper. The charges on the paper are $0.10 
  for single sheets, $0.055 per sheet for amounts in multiples of 100 sheets, $0.04
  per sheet in multiples of 500 sheets and $0.03 per sheet in multiples of 1000 
  sheets. Develop a solution to calculate the type and number of packages for the 
  least amount of money the customer should buy, given the amount of sheets the 
  customer needs. For example, if the customer needs 380 sheets, the amount she 
  would pay when buying in multiples of 100 would be $22.00. However, if the 
  customer bought 500 sheets the cost would be $20.00. Therefore, it would be cost 
  effective for the customer to buy a package of 500 sheets.
  (Hint: Use modulus division (Mod) to find the remainder of a division).</p>
  
  <pre><code>Imports System
  
  Module Paper
  
      Sub Main()
  
        Dim Name as String
        Dim OrderNumber as String
        Dim Paper as Integer
        Dim Thousandpaper as Integer
        Dim FiveHundredPaper as Integer
        Dim FirstCut as Integer
        Dim SecondCUt as Integer
  
        'User Input Begins Here:
        Console.WriteLine("Hello! What is your name?")
        Name = console.readline()
  
        Console.WriteLine("Please enter a order number:")
        OrderNumber = console.readline()
  
        Console.WriteLine("Finally ,how much paper would you like?")
        Paper = console.readline()
  
        If (Paper &gt; 1000)
          Thousandpaper = (Paper / 1000)
        End If
  
        If (Thousandpaper) &gt; Paper Then
          GoTo 44
        End If
  
        FirstCut = (Paper mod 1000)
  
        If (FirstCut &gt; 500)
          FiveHundredPaper= (FirstCut / 500)
        End If
  
        SecondCut = (FirstCut / 500)      
  
        44: Console.WriteLine("1000 paper pack:")
        Console.WriteLine(Thousandpaper)      
        Console.WriteLine("500 paper pack:")
        Console.WriteLine(FirstCut)                  
  
      End Sub
  
  End Module
  </code></pre>