Imports System

imports microsoft.visualbasic

​

Public Module Module1

​

    Public Sub Main()

        dim surname, first, year, username as string

        Console.WriteLine("Input surname")

        surname = console.ReadLine()

        Console.WriteLine("Input first name")

        first = console.ReadLine()

        Console.WriteLine("Input year started")

        year = console.ReadLine()

        username = left(surname.ToUpper, 3) & left(first.ToUpper, 2) & Year

        Console.WriteLine(username)

    End Sub

End Module

​