Imports System

Public Module Module1

    Public Sub Main()

        dim forename, length_name, surname, length_surname, length_fullname as string

        console.writeline("Enter your forename: ")

        forename = console.ReadLine()

        length_name = forename.Length()

        console.WriteLine("Enter your surname:")

        surname = console.ReadLine()

        length_surname = surname.Length()

        length_fullname = forename.Length() + surname.Length() 

        console.WriteLine("There are " & length_name & " letters in your forename and " & length_surname & " letters in your surname. Your full name has " & length_fullname & " letters.")

        console.ReadLine()

    End Sub

End Module