Public Sub LoadLstCboFromFile(ByRef oObj As Object, sPath As String, Optional bClear As Boolean = True)
'   oObj doit être une ListBox ou  un ComboBox n'étant pas en lecture seule
    Dim FF As Integer, sLine As String
    FF = FreeFile
    
    If bClear Then oObj.Clear
    If LenB(Dir(sPath, vbSystem Or vbHidden)) > 0 Then
        Open sPath For Input As #FF
            Do Until EOF(FF)
                Line Input #FF, sLine
                If LenB(sLine) > 0 Then oObj.AddItem  sLine
            Loop
        Close #FF
    End If
End Sub

Public Sub SaveLstCboToFile(ByRef oObj As Object, sPath As String)
'   oObj doit être une ListBox ou  un ComboBox
    Dim FF As Integer, i As Integer
    FF = FreeFile
    
    Open sPath For Output As #FF
        For i = 0 To oObj.ListCount - 1
            Print #FF, oObj.List(i)
        Next
    Close #FF
End Sub

'Exemple d'appel avec un composant buton2 et un openfiledialogue1 : 
'    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'        Dim Reponse As DialogResult = Me.OpenFileDialog1.ShowDialog
'        If Reponse = Windows.Forms.DialogResult.OK Then LoadItemCbx(Me.ComboBox1, _
'        Me.OpenFileDialog1.FileName, True)
'    End Sub
    Private Sub LoadItemCbx(ByVal Cbx As ComboBox, ByVal TheFile As String, ByVal CbClean As Boolean)
        Try
            If CbClean = True Then Cbx.Items.Clear()
            Cbx.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(TheFile, System.Text.Encoding.Default), vbCrLf))
            If Cbx.Items.Count > 0 Then Cbx.SelectedIndex = 0
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

ComboBox1.Items.LoadFromFile(FileName);
ListBox1.Items.LoadFromFile(FileName);

// Lit chaques lignes du fichier
this.myCmb.Items.AddRange(File.ReadAllLines(myPath));