VB 顯示執行的應用程式名稱

Private Sub Command1_Click()
Dim WMI As Object, Obj As Object, S As String

List1.Clear
S = "Select * From Win32_Process"
Set WMI = GetObject("WinMgmts:")
For Each Obj In WMI.ExecQuery(S)
List1.AddItem Obj.Description
Next
Set Obj = Nothing
Set WMI = Nothing

End Sub

比方說我開啟新的記事本，以目前程式碼會顯示出Notepad.exe，但我想要改成顯示未命名-記事本，我也不需要顯示出其他系統的名稱，只需要顯示我有開啟那些應用程式，但一直在Google都找不到，不知道該如何修改