With a lot of trial and error, I eventually stumbled onto a resolution. See
the following updated code.

'===========
With ListBox1
Dim c As Variant
Dim sCustomer As Variant, iSettings As Integer
sCustomer = GetAllSettings(appname:="ADMCustomerList",
section:="Customers")
For iSettings = LBound(sCustomer, 1) To UBound(sCustomer, 1)
Debug.Print sCustomer(iSettings, 0), sCustomer(iSettings, 1)
Next iSettings
For Each c In sCustomer
If c = False Then
GoTo EndIt
Else
.AddItem c
End If
Next
End With
EndIt:
'=============

I found out there is a point when reading the array there is a value that
equals False, this appears to be the end of reading either the Key or Setting
values. In my case both values would be the same name so I can end reading
once c = False.

--
Regards

Rick
XP Pro
Office 2007



"Rick S." wrote:

In the code below I have many "Keys" that will share the same value as the
"Setting" in the Registry.
Example:
ADMCustomerList (Appname), Customers (Section), Number1 (Key), Number1
(Setting).
What I see happening is I am retrieving both "Section" and "Key" values but
I do not know how to separate them in my code.

The variable "sCustomer" is used like "sCustomer(0, 1)" which would report
the first item in the list, "0" is the "Section" and "1" is the "Key". A "0"
should skip the "Section" value and the following numeric value is the
corrosponding "Key" value location, IE, 1 thru 10 or 1 thru some number.

How can I read only the"Key" values?

'===========
With ListBox1
Dim c As Variant
Dim sCustomer As Variant, intSettings As Integer
sCustomer = GetAllSettings(appname:="ADMCustomerList", section:="Customers")
For intSettings = LBound(sCustomer, 1) To UBound(sCustomer, 1)
Debug.Print sCustomer(intSettings, 0), sCustomer(intSettings, 1)
Next intSettings
For Each c In sCustomer
.AddItem c
Next
End With
'=============
--
Regards

Rick
XP Pro
Office 2007