code:

Private Sub LoadConfigOptions(myConfigFilePath As String)
    Dim sr As New IO.StreamReader(myMapPath)
    While Not sr.EndOfStream
        Dim szLine As String = sr.ReadLine
        Try
            If szLine.Length = 0 Then Throw New Exception
            If szLine.StartsWith("--->") Then Throw New Exception
            If Not szLine.Contains("[=]") Then Throw New Exception
            Dim c() As Char = {"[", "]"}
            Dim szPar() As String = szLine.Split(c)
            If Not szPar(1) = "=" Then Throw New Exception
            Select Case szPar(0).ToUpper
                Case "COMPANY NAME" : _companyName = szPar(2).Trim(" ")
                Case "COMPANY ID" : _companyId = szPar(2).Trim(" ")
                Case "DATABASE CONNECTION STRING" : _szCnn = szPar(2).Trim(" ")
                ' and so on
            End Select

        Catch ex As Exception
        End Try
    End While
    sr.Close()
    sr.Dispose()
End Sub