VB - Füllen von Comboboxen aus einem Textfile

Imports System.IO

Module modFillCombos

    Public Sub FillCombos(ByVal cmbBox As ComboBox, ByVal ConfigFile As String)

        Dim StmReader As StreamReader = File.OpenText(ConfigFile)

        While (StmReader.Peek() <> -1)
            cmbBox.Items.Add(StmReader.ReadLine())
        End While

        StmReader.Close()

        cmbBox.SelectedIndex = 0


    End Sub

End Module