Private Class XML2
        Public A1 As String
    End Class

Dim XML1 As New XML2
        With XML1
            .A1 = Me.TextBox1.Text
        End With
        Dim objStream As New IO.FileStream(Application.StartupPath & _
          "\Settings.ini", IO.FileMode.Create, IO.FileAccess.Write)
        Dim objSw As New IO.StreamWriter(objStream, System.Text.Encoding.UTF8)
 
        Dim objSerializer As New Xml.Serialization.XmlSerializer(XML1.GetType)
        objSerializer.Serialize(objSw, XML1)
        objStream.Close()
        objSw.Close()