title: Visual Basic Friend Error
body: <p>Im having trouble working out making a converter for mutliple currencys using multiple subs. I keep receiving an error saying that number is a friend , and therefore cannot be used in the jap conversion . can anyone help ? thank you in advance</p>
  
  <pre><code>Option Explicit On
  'Option Strict On
  
  Imports System
  
  Module Yahtzed
  
      Sub CANtoUSD()
          Dim Number , USDConversion as Decimal
          Number = Console.Readline
          USDConversion =( Number * 1.0141)
          Console.Writeline(USDConversion)
      End Sub
  
      Sub CANtoJAP()
          Dim Number, JAPConversion as Decimal
          Number = Console.Readline
          JAPConversion =( Number * 79.9392)
          Console.Writeline(JAPConversion)
      End Sub
  
      Sub Main()
          Console.Writeline("Enter the CAN amount: ")
          CANtoUSD()
          CANtoJAP()
  
      End Sub
  
  End Module
  </code></pre>