Si necesitamos saber si una aplicación se está ejecutando podemos usar una función similar a la que se ve a continuación.

Declaramos :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long

Y la función :

Function EstaCargado(NombreClase As String) As Boolean
     EstaCargado = (FindWindow(NombreClase, vbNullString) <> 0)
End Function

A esta función debemos pasarle como parámetro el nombre de clase que la ventana principal de la aplicación que queremos saber si se está ejecutando.

Para saber si está cargado Word :
if EstaCargado("OpusApp") then...

Para Excel :
if EstaCargado("XlMain") then...

El método para obtener el nombre de clase de una ventana lo podeis encontrar en la sección Trucos, en el mensaje "Conocer el nombre de clase de una ventana".