Dim oo As OLEObject Set oo = RichTextBox1.OLEObjects.Add(Source:="C:\temp\test.doc") oo.DisplayType = rtfDisplayContent