I beleive I found a working resolution!

'===========
With ListBox1
..Clear
Dim c As Variant
Dim x As String 'add this variable 10.26.07<<<<
Dim sCustomer As Variant, iSettings As Integer
sCustomer = GetAllSettings(appname:="ADMCustomerList",
section:="Customers")
For iSettings = LBound(sCustomer, 1) To UBound(sCustomer, 1)
x = sCustomer(iSettings, 0) 'modified this line 10.26.07<<<<
'MsgBox x 'for testing
.AddItem x 'added this line 10.26.07<<<<
Next iSettings
'Removed 2 lines of code here 10.26.07<<<<
End With
'=============

--
Regards

Rick
XP Pro
Office 2007