Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim count as integer

        Dim input as integer

        Dim total as decimal = 0

        Dim TotalAsInt as integer

        Dim ccNumber as integer

        Dim ccNumberArray(7) as integer

​

        Console.Writeline("Please enter your credit card number.")

        ccNumber = Console.Readline()

        For count = 0 to 7

        ccNumber

​

​

        next

​

        total = total + ccNumberArray(count) * (count + 1)

        TotalAsInt = Convert.ToInt32(total)

        if total = TotalAsInt then

            Console.Writeline("The entered credit card value is valid.")

        else

            Console.Writeline("The entered credit card value is invalid.")

        end if

    End Sub

End Module

​