Dim entry As String = "Testeintrag"
        Dim cfg As Configuration = ConfigurationManager.OpenExeConfiguration( _
          ConfigurationUserLevel.None)
        cfg.AppSettings.Settings.Add(entry, "Neuer Eintrag")
        cfg.Save(ConfigurationSaveMode.Modified)
        Confi

        Dim Eintrag As String = _
          System.Configuration.ConfigurationManager.AppSettings("Testeintrag")
        MsgBox(Eintrag)

Gru? asam