OLE OBJECT extract from Embeded Container.

How can I extract object from an OLE container constructed using the following method?

OLEDoc.CreateEmbed DocSource
Open "c:\docs\" & DocID For Binary Access Read Write As FileNum
OLEDoc.SaveToFile FileNum

I am trying to convert OLE Embedded files back to the original DocSource.

[320 byte] By [MidlandsVB] at [2007-12-24]