Imports System

​

Imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        dim surname as string

        dim forename as string

        dim initial as string

        dim upperinitial as string 

        dim uppersurname as string

        console.WriteLine("What is your forename?")

        forename = console.ReadLine()

        console.WriteLine("What is your surname?")

        surname = console.ReadLine()

        initial =  left(forename, 1) 

        upperinitial = ucase(initial) 

        uppersurname = ucase(surname)

        console.WriteLine("This is your name " & " " & upperinitial & " " & uppersurname & ".")

    End Sub

End Module