Public Overloads Sub Write(ByVal path$)
        Dim fs As New IO.FileStream(filePath, IO.FileMode.Create, _
          IO.FileAccess.Write)
        Write(fs)
        fs.Close()
    End Sub
 
    Public Overloads Sub Write(ByVal stm As IO.Stream)
        Dim sw As New IO.StreamWriter(stm, Me.Encoding)
        Write(sw)
        'Hierum gehts: sw schliessen oder nicht ??
    End Sub
 
    Public Overloads Sub Write(ByVal tw As IO.TextWriter)
        With tw
            .WriteLine("bla bla bla")
        End With
        tw.Flush()
    End Sub