Imports System

Public Module Module1

    Public Sub Main()

        Console.Writeline("...")

        Dim myString1 as string = Console.Readline

        Console.Writeline("The number of characters is ... " & myString1.length & ".")

        Console.Writeline("...")

        Dim myString2 as string = Console.Readline

        Console.Writeline("The number of characters is ... " & myString2.length & ".")

        Console.Writeline("Total characters = ... " & myString1.length + myString2.length)

        Console.writeline(myString1 & myString2(0) & "17" & "@nks.kent.sch.uk")

​

    End Sub

End Module