Dim NextLine As String
       While Stream.Peek > -1
            NextLine  = Stream.ReadLine()
            If NextLine.StartsWith("[") Then
                CurrentSection = NextLine.Substring(1, 1)
            Else
                Values.Add(CurrentSection & "\" & NextLine.Substring(0, 1), _
                  NextLine.Substring(1))
            End If
        End While