Сохранить состояние CheckBox, используя текстовый файл - Visual Basic .NET

Public Class Form1
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        My.Settings.s = New System.Collections.Specialized.StringCollection()
        For Each CB As CheckBox In Me.Controls.OfType(Of CheckBox)()
            My.Settings.s.Add(CB.Name & " " & CB.Checked)
        Next
        My.Settings.Save()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            For Each Line As String In My.Settings.s
                CType(Me.Controls(Line.Split()(0)), CheckBox).Checked = Line.Split()(1)
            Next
        Catch ex As Exception
        End Try
    End Sub
End Class