VB Prozesse Auflisten

Dim objWMIService As Object, colItems As Object, strProcesses As String
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Process", , 48)  
strProcesses = ""  
For Each objItem In colItems
    If strProcesses <> "" Then  
        strProcesses = strProcesses & " + " & objItem.Name  
    Else
        strProcesses = objItem.Name
    End If
Next
MsgBox strProcesses