Dim var_WordDocument As Word.Document
Set var_WordDocument = CreateObject("Word.Document")
Word.Application.Visible = True
Word.Documents.Open (List2.Text)
 
(wait, etc) 'warten
 
MsgBox "Word wurde beendet", vbOKOnly, "Nachricht"  'Wenn Word beendet wurde
...
End Sub