iTextsharp Lave MemoryStream og gemme på disk

Hej

Følgende virker fint (lave pdf direkte):
Dim FS As New FileStream(filename, FileMode.Create, FileAccess.Write, FileShare.None)
Dim Doc As New Document(PageSize.A4.Rotate)
Dim Writer = PdfWriter.GetInstance(Doc, FS)

'Tilføj data til Writer/Doc

FS.close
Doc.close


Men jeg skal lave det i en MemoryStream først og derefter gemme på disk

Prøver med dette, men det giver blot en fil med 15 bytes...

Dim MS As New MemoryStream()
Dim Doc As New Document(PageSize.A4.Rotate)
Dim Writer = PdfWriter.GetInstance(Doc, MS)

'Tilføj data til Writer/Doc

Dim FS As New FileStream(filename, FileMode.Create, FileAccess.Write, FileShare.None)
MS.WriteTo(FS)
FS.Close()
Doc.Close()
MS.Close()

Hvad gør jeg galt?