Imports System

​

Public Module Module1

    Public Sub Main()

        dim counter as string = -1

        do 

        dim year as string

        dim name as string

        dim srname as string

        dim yearlength as integer

        dim usernameyear as string

        dim usernamename as string

        dim usernamesrname as string

        dim usernames() as string

            dim username as string

        counter = counter + 1 

        console.writeline("Input First name")

        name = console.readline()

        console.writeline("Input year of entry")

        year = console.readline()

        console.writeline("Input surname")

        srname = console.readline()

        yearlength = year.Length - 2

        usernameyear = year.Substring(yearlength)

        usernamename = firstdigit(name) 

        usernamesrname = fourdigits(srname)

            username = usernameyear & usernamename & usernamesrname

        console.WriteLine(username)

            usernames(counter)= username

        loop

    end sub

    Function firstdigit(ByVal value As String) As String

        Dim arr() As Char = value.ToCharArray()

        Return arr(0)

        End Function

    function fourdigits(byval value as string) as string

        dim array() as char = value.ToCharArray()

        dim word as string = array(0) & array(1) & array(2) & array(3)

        return word

    end function

​

End Module

​