Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

​

    Public Sub Main()

        Dim strInput as string

        Dim strOutput as string

        Console.WriteLine("enter some text with at least 8 characters")

            strInput = Console.Readline()

            stroutput = Left(strinput,5)

            Console.Writeline("The first 5 characters are: " & stroutput)

End Sub

End Module