Fichier sequentiel indexé

Bonjour , j'essaye de faire un programme qui lis un fichier texte comme celui la :
Numagent Nomagent Prenomagent NumtelAgent ...
j'obtiens donc ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
    Sub lectureFichier(ByVal fichier As String)
        Try
 
            Dim sr As StreamReader = New StreamReader(fichier)
 
            Dim ligne As String
 
            Dim TabLigne() As String
 
            ligne = sr.ReadLine
            While ligne <> Nothing
                ligne = sr.ReadLine
                TabLigne = Split(ligne," ")
            End While
 
            sr.Close()
            Console.ReadLine()
        Catch ex As Exception
            'Code exécuté en cas d'exception
            Console.Write("Une erreur est survenue au cours de la lecture !")
            Console.Write(ex.Message)
        End Try
    End Sub

Le trie ne fonctionneras pas si l'agent à un nom / prénom composé, de plus, je n'arrive pas à ajouter le faite que chaque colonne à une dimension bien définie (par exemple 4 caractères maximum pour le Numagent)