DIM Feld2 ...
....
With My.Settings
   For Each it As System.Configuration.SettingsProperty In .Properties
       Feld1 = it.Name
       Feld2 = My.Settings.Item(it.Name).ToString 
       ...
       ...
   Next it
End With
...