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