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