Hoe Generating document tonen?

[BenVan]

Ben bezig met een scriptje maar zit met volgende vraag
Dit is scriptje:
Dim gApp
Dim doc
Set gApp = CreateObject("Word.Application")
Set doc = CreateObject("Scripting.FileSystemObject")
gApp.documents.Open(doc.GetAbsolutePathName("wizards\Wizard.doc"))
gapp.Run "AutoSamenVoeg"
gApp.documents.Open(doc.GetAbsolutePathName("wizards\Wizard.doc"))
gapp.Run "OpenDoc"
gApp.Visible=TRUE

Nu is mijn bedoeling van ondertussen een schermpje te tonen zoals in bijlage:
Met welke code genereer je zo'n schermpje? Iemand? Het zal veel duidelijker zijn voor de gebruiker.

groetjes