Rendre un main modal

Comment rendre un exe VB Sans dialog (Sub Main) modal quand il est lance
dans une commande DOS

Je souhaite que le prompt Dos me soit rendu que losque le traitemant est
fini

Ci joint le context

Merci



Sub Main()

On Error GoTo errhandler



Dim wordApp As Word.Application

Dim wordDoc As Word.Document





Set wordApp = CreateObject("Word.Application")

With wordApp

wordApp.Visible = False

Set wordDoc = wordApp.Documents.Open("c:\temp\toto.doc")

' traitement long

wordApp.Quit



End With



errhandler:

Set wordDoc = Nothing

Set wordApp = Nothing

End Sub