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
 
'https://pt.stackoverflow.com/q/126252/101

SW1wb3J0cyBTeXN0ZW0KUHVibGljIE1vZHVsZSBNb2R1bGUxCglQdWJsaWMgU3ViIE1haW4oKQoJCURpbSBpdGVucyBBcyBTdHJpbmcoKSA9IHsiMDAwLjAwMC4wMDAtMDA7TWFyaWEgZGEgU2lsdmE7MTk5NSIsICIxMTEuMTExLjExMS0xMTtKb3PDqSBkZSBTb3V6YTsyMDA1IiwgIjIyMi4yMjIuMjIyLTIyO0pvw6NvIEFudMO0bmlvOzE5NDUifQoJCURpbSBwb3NpY2FvIEFzIFN0cmluZyA9IFN0cmluZy5Kb2luKCIiLCBpdGVucykKCQlEaW0gc2VwYXJhIEFzIFN0cmluZygpCgkJRGltIGNvbnRhZ2VtIEFzIFN0cmluZwoJCQoJCWNvbnRhZ2VtID0gaXRlbnMuTGVuZ3RoCgkJCgkJRGltIGkgQXMgSW50ZWdlcgoJCUZvciBpID0gMCBUbyBjb250YWdlbQoJCQlzZXBhcmEgPSBwb3NpY2FvLlNwbGl0KCI7IikKCQkJRGltIGNwZiA9IHNlcGFyYSgwKQoJCQlEaW0gbm9tZSA9IHNlcGFyYSgxKQoJCQlEaW0gYW5vbmFzYyA9IHNlcGFyYSgyKQoJCQlDb25zb2xlLldyaXRlTGluZShjcGYpCgkJCUNvbnNvbGUuV3JpdGVMaW5lKG5vbWUpCgkJCUNvbnNvbGUuV3JpdGVMaW5lKGFub25hc2MpCgoJCU5leHQKRW5kIFN1YgpFbmQgTW9kdWxlCgonaHR0cHM6Ly9wdC5zdGFja292ZXJmbG93LmNvbS9xLzEyNjI1Mi8xMDE=