Private Sub createOle()
 
	On Error GoTo Err_Handler
 
    oleContainer.CreateEmbed vbNullString, "Word.Document"
 
    Set oDocument = oleContainer.object
 
	oleContainer.SizeMode = 1
 
	oleContainer.DoVerb -1
 
    Exit Sub
 
	Err_Handler:
 
	MsgBox "An error occurred: " & Err.Description, vbCritical
End Sub
 
Private Sub closeOle()
	On Error GoTo Err_Handler
 
	oDocument.Close
 
	Set oDocument = Nothing
 
	oleContainer.Close
 
	oleContainer.Delete
 
    Exit Sub
 
	Err_Handler:
 
	MsgBox "An error occurred: " & Err.Description, vbCritical
 
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
	Select Case UnloadMode
 
	Case vbAppWindows
 
    closeOle
 
	End Select
 
End Sub