Dim WordProcesses() As Process
Dim WordModules As ProcessModuleCollection
Dim aModule As ProcessModule
WordProcesses = Process.GetProcessesByName("WinWord")
' Populate the module collection.
WordModules = WordProcesses(0).Modules
' Iterate through the module collection.
For Each aModule In WordModules
ListBox1.Items.Add(aModule.ModuleName)
Next