MINI PROJETO 08

Module Module1
    Dim nomecompleto, nomeseperado As String
    Dim separado As String()
    Dim final As String = ""

    Sub Main()

        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")
        Console.WriteLine("_____ MINI PROJETO 08 _____")
        Console.WriteLine("")
        Console.WriteLine("<><><><><><><><><><><><><>")
        Console.WriteLine("")

        Console.Write("Digite o seu nome completo: ")
        nomecompleto = Console.ReadLine

        separado = Split(nomecompleto)

        Dim letra As String

        For Each nomeseperado In separado
            letra = Mid(nomeseperado, 1, 1)
            final = final + letra

        Next

        Console.WriteLine("")
        Console.WriteLine("As iniciais do nome são: " & final)

        Console.ReadKey()


    End Sub

End Module