Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Console.WriteLine("Please insert five integers back to back.")

        Dim numbers As String

        numbers = Console.Readline

​

        dim no1 as string = Mid(numbers, 1,1)

        dim no2 as string = Mid(numbers, 2,1)

        dim no3 as integer= 

        dim no4 as integer

        dim no5 as integer

    End Sub

End Module