Taskbar Applications

[zvd]

I'm trying to have just one message box show all the applications running on the taskbar. In this example, I get a message box for each application running, with the last box finally showing all the applications. How would I make it so I only retrieve the contents of the last message box? (Also, is there a better way to retrieve the running applications other than ObjCreate("Word.Application")? At least using this returns friendly names...

Global $strList
    $objWord = ObjCreate("Word.Application")
    $colTasks = $objWord.Tasks
    For $objTask In $colTasks
        If $objTask.Visible Then
            $strList = ($strList & $objTask.Name & @CR)
            MsgBox(0, "", $strList)
        EndIf
    Next

[evilertoaster]

Global $strList
$objWord = ObjCreate("Word.Application")
$colTasks = $objWord.Tasks
For $objTask In $colTasks
    If $objTask.Visible Then $strList = ($strList & $objTask.Name & @CR)
Next
MsgBox(0, "", $strList)

[zvd]

Thanks alot for your quick help!