vb读取ini文件

'以下是模块中的函数代码
    Public Function readini(ByVal filename As String) As String()

        Dim fileExists As Boolean
        fileExists = My.Computer.FileSystem.FileExists(filename)
        If fileExists Then
            Dim fields As String()
            Dim delimiter As String = ","
            Using parser As New TextFieldParser(filename)
                parser.SetDelimiters(delimiter)
                While Not parser.EndOfData
                    ' Read in the fields for the current line
                    fields = parser.ReadFields()
                    ' Add code here to use data in fields variable.

                End While
                Return fields
            End Using

        Else
            My.Computer.FileSystem.WriteAllText(filename, ",", False)
        End If

    End Function
'------------------------------------------------------------------------
'以下是读取到combobox中的代码
Imports Microsoft.VisualBasic.FileIO
        Dim i As Integer
        Dim f1 As String(), f2 As String()
        f1 = readini("shebei.ini")
        comboBox2.Items.Clear()
        For i = 1 To f1.Length - 2
            comboBox2.Items.Add(f1(i))
        Next