Write to ConfigFile

Private Sub WriteToConfig(ByVal AnalysisID As String)
        Dim myConfiguration As System.Configuration.Configuration = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration("~")
        myConfiguration.AppSettings.Settings.Item("AnalysisID").Value = AnalysisID
        myConfiguration.Save()