Как из VB проверить запущен ли Word, Excel etc.

Dim wObj as Word.Application
On Error Resume Next
 
' Get existing instance of Word if it exists.
Set wObj = GetObject(, 'Word.Application')
 
If Err <> 0 then ' можешь проверить конкретно на 429 ошибку
   MsgBox 'Microsoft Word уже запущен'
End If