Imports System

Public Module Module1

    Public Sub Main()

        Console.Write ("Enter your name:")

        Dim inputName as string

        inputName = Console.ReadLine()

        Dim charSize = inputName.Length

        console.WriteLine("Your name {0} has {1} characters." , inputName,charSize)

    End Sub

End Module