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.")