<Serializable()> Public Class UserSettings
    Public Textfeld As String = ""
End Class
 
Public Optionen As New UserSettings
 
Public Shared Function Save(ByVal FileName As String) As Boolean
        Dim configFile As Stream = Nothing
 
        Optionen.Textfeld = txtMyTextBox.Text
 
        Dim xs As New XmlSerializer(GetType(UserSettings))
        If IO.File.Exists(FileName) Then IO.File.Delete(FileName)
        configFile = IO.File.Open(FileName, FileMode.Create, FileAccess.Write)
        xs.Serialize(configFile, mySettings)
        If Not IsNothing(configFile) Then configFile.Close()
    End Function
    Public Shared Function LoadSetting(ByVal FileName As String) As Boolean
        Dim configFile As Stream = Nothing
 
        Try
            If IO.File.Exists(FileName) Then
                Dim xs As New XmlSerializer(GetType(UserSettings))
                configFile = IO.File.Open(FileName, FileMode.Open, _
                  FileAccess.Read)
                mSetting = DirectCast(xs.Deserialize(configFile), UserSettings)
            Else
                Optionen = New UserSettings
            End If
 
            txtMyTextBox.Text = Optionen.Textfeld
            Return True
        Catch ex As Exception
            Return False
        Finally
            If Not IsNothing(configFile) Then configFile.Close()
        End Try
    End Function