Visual Basic.net Textdatei schreiben

Try
            ' Datei öffnen
            Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.Write)
            'Stream öffnen
            Dim w As StreamWriter = New StreamWriter(fs)
            'Anfügen am Ende
            w.BaseStream.Seek(0, SeekOrigin.End)
            'Zeilen schreiben
            w.Write("Test")
            w.WriteLine()
            'Writer und Stream schließen
            w.Close()
            fs.Close()
        Catch ex As Exception
            MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
        End Try

http://www.it-visions.de/lserver/CodeSampleDetails.aspx?c=2800