Как записать значение checkbox в файл

Public Class Form1
    Friend Function RSettings(ByVal adress As String) As String
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        RSettings = ""
        RSettings = SetXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        On Error Resume Next
        CheckBox1.Checked = RSettings("/Настройки/@Чекбокс")
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SetXml As New System.Xml.XmlTextWriter("C:\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        SetXml.WriteStartDocument()
        SetXml.Formatting = System.Xml.Formatting.Indented
        SetXml.Indentation = 20
        SetXml.WriteStartElement("Настройки")
        SetXml.WriteAttributeString("Чекбокс", CheckBox1.Checked)
        SetXml.WriteEndElement()
        SetXml.Flush()
        SetXml.Close()
    End Sub
End Class

Public Class Class_Settings
    Friend Function RSettings(ByVal adress As String)
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        RSettings = SetXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function
 
    Public Sub settings_save() 'Сохранение настроек
        Dim SetXml As New System.Xml.XmlTextWriter("C:\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        SetXml.WriteStartDocument()
        SetXml.Formatting = System.Xml.Formatting.Indented
        SetXml.Indentation = 20
        SetXml.WriteStartElement("Настройки")
        SetXml.WriteAttributeString("Чекбокс", Form1.CheckBox1.Checked)
        SetXml.WriteEndElement()
        SetXml.Flush()
        SetXml.Close()
    End Sub
 
    Public Sub settings_load() 'Загрузка настроек
        On Error Resume Next
        Form1.CheckBox1.Checked = RSettings("/Настройки/@Чекбокс")
 
    End Sub
 
End Class

Public Class Form1
    Public SETTINGS As New Class_Settings
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SETTINGS.settings_load()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SETTINGS.settings_save()
    End Sub
 
 
End Class

Public Class Class_Settings
  Friend Function RSettings(ByVal adress As String)
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        RSettings = SetXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function
 
    Public Sub settings_save() 'Сохранение настроек
        Dim SetXml As New System.Xml.XmlTextWriter("C:\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        SetXml.WriteStartDocument()
        SetXml.Formatting = System.Xml.Formatting.Indented
        SetXml.Indentation = 20
        SetXml.WriteStartElement("Настройки")
        SetXml.WriteAttributeString("Чекбокс", Form1.CheckBox1.Checked)
        SetXml.WriteAttributeString("Текст", Form1.TextBox1.Text)
        SetXml.WriteEndElement()
        SetXml.Flush()
        SetXml.Close()
    End Sub
 
    Public Sub settings_load() 'Загрузка настроек
        On Error Resume Next
        Form1.CheckBox1.Checked = RSettings("/Настройки/@Чекбокс")
        If Form1.CheckBox1.Checked = True Then
            Form1.TextBox1.Text = RSettings("/Настройки/@Текст")
        End If
    End Sub
 
 
End Class

Public Class Class_Settings
  Friend Function RSettings(ByVal adress As String)
        On Error Resume Next
        Dim SetXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        RSettings = SetXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function
 
    Public Sub settings_save() 'Сохранение настроек
        Dim SetXml As New System.Xml.XmlTextWriter("C:\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        SetXml.WriteStartDocument()
        SetXml.Formatting = System.Xml.Formatting.Indented
        SetXml.Indentation = 20
        SetXml.WriteStartElement("Настройки")
        SetXml.WriteAttributeString("Чекбокс", Form1.CheckBox1.Checked)
        If Form1.CheckBox1.Checked = True Then
            SetXml.WriteAttributeString("Текст", Form1.TextBox1.Text)
        Else
            SetXml.WriteAttributeString("Текст", Form1.TextBox1.Text = "")
        End If
        SetXml.WriteEndElement()
        SetXml.Flush()
        SetXml.Close()
    End Sub
 
    Public Sub settings_load() 'Загрузка настроек
        On Error Resume Next
        Form1.CheckBox1.Checked = RSettings("/Настройки/@Чекбокс")
        If Form1.CheckBox1.Checked = True Then
            Form1.TextBox1.Text = RSettings("/Настройки/@Текст")
        End If
    End Sub
 
 
End Class