While Arquivo.Peek() <> -1
				Dim linha() as string = Arquivo.ReadLine().Split(Separador)
				Dim linha As String = String.Join("|", linha)
                datagrid.Rows.Add(linha)
            End While