Split sur lecture d'un fichier CSV

Bonjour qui pourrai m'aider je suis en vb net et une fonction split me pose problème à la ligne 19 le message d'errreur que je rencontre est

"impossible de convertir une valeur de type 'tableau a 1 dimension de string' en 'string'". Mais il faut bien que je récupère les infos de mon Split pour les utiliser.

Merci d'avance pour le temps pris pour m'aider.

Public Class Form3

Dim adr As String

Dim O As String

Dim Line As String

Dim Sep As String

Dim SousChaineQuiRef As String

Dim SousChaineQui As String

Private Sub QuiToRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuiToRef.Click

If TQuiRef.Text = "" Then

Exit Sub

End If

adr = Form1.Labeladr.Text

O = FreeFile()

FileOpen(O, adr, OpenMode.Input)

Do Until EOF(O)

LineInput(O)

Line = LineInput(O)

If Line <> "" Then

Sep = Split(Line, ";")

SousChaineQuiRef = Sep(0)

If sep.Length = 5 Or sep.Length > 5 Then

SousChaineQui = Sep(5)

End If

If SousChaineQui = TQuiUtilisateur.Text Then

TQuiRef.AppendText(vbNewLine & SousChaineQuiRef)

End If

End If

Loop

FileClose(O)

End Sub

End Class

Bonjour,

en vb.net!

 Dim Fichier As String = My.Computer.FileSystem.ReadAllText("C:\Myrep\toto.txt", System.Text.Encoding.ASCII).ToString
        For Each Ligne As String In Fichier.Split(vbNewLine) 'lire chaques linges
            For Each Cells As String In Ligne.Split(";") 'lire chaques cellules

            Next
        Next

Merci Beaucoup je vais enfin pouvoir avancé