Imports System

Public Module Module1

    Public Sub Main()

        Dim itens As String() = {"000.000.000-00;Maria da Silva;1995", "111.111.111-11;José de Souza;2005", "222.222.222-22;João Antônio;1945"}

        Dim posicao As String = String.Join("", itens)

        Dim separa As String()

        Dim contagem As String

        contagem = itens.Length

        Dim i As Integer

        For i = 0 To contagem

            separa = posicao.Split(";")

            Dim cpf = separa(0)

            Dim nome = separa(1)

            Dim anonasc = separa(2)

            Console.WriteLine(cpf)

            Console.WriteLine(nome)

            Console.WriteLine(anonasc)

​

        Next

End Sub

End Module