VB.NET Récupérer valeurs d'un fichier texte

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        lectureFichier(Application.StartupPath & "\monfichier.txt")
        ComboBox1.SelectedIndex = 0
    End Sub
    Sub lectureFichier(ByVal fichier As String)
        Try
            ' Création d'une instance de StreamReader pour permettre la lecture de notre fichier
            Dim monStreamReader As StreamReader = New StreamReader(fichier)
            Dim ligne As String
            'Lecture de toutes les lignes et affichage de chacune sur la page
            Do
                ligne = monStreamReader.ReadLine()
                ComboBox1.Items.Add(ligne)
            Loop Until ligne Is Nothing
            'Fermeture du StreamReader (attention très important)
            monStreamReader.Close()
        Catch ex As Exception
        End Try
    End Sub
End Class