COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
Dim Valor As Integer = 0
If Not (ConfigurationSettings.AppSettings(chave) Is Nothing) Then
Try
Valor = Convert.ToInt32(ConfigurationSettings.AppSettings("Max"))
Catch e As Exception
//tratamento da exceção
End Try
End If