Dim firstnameinitial As String
        Dim find1stspace As String
        Dim find2ndspace As String
        Dim findmiddleandsurname As String
        Dim lastname As String
        Dim findmiddlenameinitial As String
        Dim findsurname As String



        Console.WriteLine("Please Enter your full name ")
        fullname = Console.ReadLine




        firstnameinitial = fullname.Substring(0, 1)
        find1stspace = fullname.IndexOf(" ")
        find1stspace = find1stspace + 1
        findmiddlenameinitial = fullname.Substring(find1stspace, 1)
        findmiddleandsurname = fullname.Substring(find1stspace)
        find2ndspace = findmiddleandsurname.IndexOf(" ")
        find2ndspace = find2ndspace + 1
        lastname = findmiddleandsurname.Substring(find2ndspace)

        If find2ndspace = 0 Then
            find1stspace = fullname.IndexOf(" ")
            find1stspace = find1stspace + 1
            findsurname = fullname.Substring(find1stspace)
            Console.WriteLine(firstnameinitial & findsurname)
        Else
            Console.WriteLine(firstnameinitial & findmiddlenameinitial & lastname)
        End If