Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim strFirstName as string

        Dim strLastName as string

        Console.WriteLine("Enter your first name.") 'Enter your first name'

        strFirstName = Console.ReadLine()

        Console.WriteLine("Enter your last name.") 'Enter your last name

        strLastName = Console.ReadLine()

        Console.WriteLine( UCase(Left(strFirstName,1)) & " " & UCase(strLastName) ) 'Outputs you first initial and last initial in capitals'

    End Sub

End Module