This should be simple enough, but the second line throws an error that EmbeddedPackagePart does not implement IFixedContentPart.
Dim MP as MainDocumentPart = WordProcessingDocument.AddMainDocumentPart()
Dim EP as EmbeddedPackagePart = MP.AddNewPart(Of EmbeddedPackagePart)()
here's a screen shot of the code window:
I didn't find the right solution from the internet.
For More You Can Check : Business marketing video company