Getting running applications names from task manager

Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
For Each Task in Tasks
   If Task.Visible Then msgbox Task.Name
Next
Word.Quit