Imports System

Public Module Module1

    Public Sub Main()

        dim checksum as integer = 0 

        dim checkdigit as integer

        Dim ISBN(13) as boolean

        dim i as integer

        console.writeline("Input ISBN No.")

        ISBN(i)=console.readline

​

​

​

​

​

​

​

​

​

end sub

End Module

    End Module