Gestion de fichier

Dim s As New StreamReader(OpenFileDialog1.FileName)
        Dim mot() As String
        Dim ligne As String
        Dim i As Integer = 0
        Dim j As Integer = 0

'lire le fichier txt ligne par ligne 
        While s.Peek <> -1

ligne = s.ReadLine()
            If ligne.StartsWith("B") Then
                mot = Split(ligne, " ")
                ReDim Preserve borne(i)
                borne(i).x = CType(mot(1), Single)
                borne(i).y = CType(mot(2), Single)
                i = i + 1
            Else
                ReDim borne(0)
                i = 0
            End If

End While