У меня возникли проблемы при разработке преобразователя для нескольких токов с использованием нескольких сабвуферов. Я получаю сообщение об ошибке, в котором говорится, что число является другом, и поэтому не может быть использовано при преобразовании японского языка. кто-нибудь может помочь? заранее спасибо

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