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 = Len(strInput)

        Console.WriteLine("The first 5 characters are: " & strOutput)

    End Sub

End Module