' This function shows how to read the key/value
' pairs (settings collection)contained in the 
' appSettings section.
Private Shared Sub ReadAppSettings()
    Try

        ' Get the configuration file.
        Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)

        ' Get the appSettings section.
        Dim appSettings As System.Configuration.AppSettingsSection = CType(config.GetSection("appSettings"), System.Configuration.AppSettingsSection)

        ' Get the auxiliary file name.
        Console.WriteLine("Auxiliary file: {0}", config.AppSettings.File)


        ' Get the settings collection (key/value pairs).
        If appSettings.Settings.Count <> 0 Then
            For Each key As String In appSettings.Settings.AllKeys
                Dim value As String = appSettings.Settings(key).Value
                Console.WriteLine("Key: {0} Value: {1}", key, value)
            Next key
        Else
            Console.WriteLine("The appSettings section is empty. Write first.")
        End If
    Catch e As Exception
        Console.WriteLine("Exception raised: {0}", e.Message)
    End Try
End Sub