Dim FileContent As String = String.Empty
        For Each item As System.Configuration.SettingsPropertyValue In _
          My.Settings.PropertyValues
            FileContent &= item.Name & "=" & item.SerializedValue & "%EOL%" & _
            vbCrLf
            MsgBox(item.Name & "=" & item.SerializedValue)
        Next
        My.Computer.FileSystem.WriteAllText("C:\exports.txt", FileContent, _
          False)

 Dim FileContent As String = My.Computer.FileSystem.ReadAllText( _
   "C:\exports.txt")
        Dim Delimiter() As String = {"%EOL%" & vbCrLf}
        Dim Objects() As String = FileContent.Split(Delimiter, _
          StringSplitOptions.RemoveEmptyEntries)
 
        For Each Property_ As System.Configuration.SettingsPropertyValue In _
          My.Settings.PropertyValues
 
            For Each Item As String In Objects
                Dim itemParts() As String = Split(Item, "=", 2)
                If itemParts.Length = 2 Then
                    If Property_.Name = itemParts(0) Then
                        Property_.SerializedValue = itemParts(1)
                        MsgBox(Property_.Name & "=" & itemParts(1))
                    End If
                End If
            Next
 
        Next