Retrieve a value from App.config

Here's my App.config file:

<?xml version="1.0" encoding="utf-8" ?>
<configuratio n>
<configSections >
<sectionGroup name="customers ">
<section name="test1"
type="System.Co nfiguration.Dic tionarySectionH andler" />
<section name="test2"
type="System.Co nfiguration.Dic tionarySectionH andler" />
</sectionGroup>
</configSections>

<appSettings>
<add key="Connection String" value="some value here" />
</appSettings>

<customers>
<test1>
<add key="CustCode" value="0001" />
<add key="FtpHost" value="ftp://xxx.com" />
<add key="FtpAccount " value="user1" />
<add key="FtpPasswor d" value="password 1" />
<add key="Active" value="Y" />
</test1>
<test2>
<add key="CustCode" value="0002" />
<add key="FtpHost" value="ftp://yyy.com" />
<add key="FtpAccount " value="user2" />
<add key="FtpPasswor d" value="password 2" />
<add key="Active" value="Y" />
</test2>
</customers>
</configuration>

I'm trying to loop through customers group and retrieve the 'Active' key
value for each section (test1 and test2). The only way of doing this that I
found is use the Hashtable (see code below). The problem is that those key
values don't come in the order in which they are defined in the config file,
and I have to loop through all the keys until I find 'Active'. How can I
directly get the value I want? Thanks for any help!

Dim config As Configuration =
ConfigurationMa nager.OpenExeCo nfiguration(Con figurationUserL evel.None)
Dim custGroup As ConfigurationSe ctionGroup =
config.SectionG roups.Get("cust omers")

Dim custCodes As String = Nothing
For Each custNode As DefaultSection In custGroup.Secti ons
Dim cfg As Hashtable =
CType(Configura tionManager.Get Section(custNod e.SectionInform ation.SectionNa me), Hashtable)

Dim CustCode As String = Nothing
Dim FtpHost As String = Nothing
Dim FtpAccount As String = Nothing
Dim FtpPassword As String = Nothing
Dim Active As String = Nothing
For Each custAtt As System.Collecti ons.DictionaryE ntry In cfg
Select Case custAtt.Key
Case "CustCode"
CustCode = custAtt.Value
Case "FtpHost"
FtpHost = custAtt.Value
Case "FtpAccount "
FtpAccount = custAtt.Value
Case "FtpPasswor d"
FtpPassword = custAtt.Value
Case "Active"
Active = custAtt.Value
End Select
Next