Public Sub Userdatei_schreiben()
 
        'Datei öffnen
        Dim fs As FileStream = New FileStream(user_filename, _
          FileMode.OpenOrCreate, FileAccess.Write)
 
        'Stream öffnen
        Dim r As StreamWriter = New StreamWriter(fs)
 
        'Zeiger auf den Anfang
        r.BaseStream.Seek(0, SeekOrigin.Begin)
 
        'Schreib-String generieren
        Dim inhalt As String = ""
        Dim i As Integer
        For i = 0 To user.Length - 1
            inhalt = inhalt & user(i).Name & trennzeichen
        Next
 
        'Zeile in Datei schreiben
        For i = 0 To user.Length - 1
            r.Write(inhalt)
        Next
 
        'Reader und Stream schließen
        r.Close()
        fs.Close()
    End Sub