Sargum,
Here's the code to check if an app is running

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

Private Sub Command1_Click()

Dim hApp As Long
'Replace Calculator with the title of the App you want to check
hApp = FindWindow(vbNullString, "Calculator")
If hApp <> 0 Then
'App is running
Print "App is running"
Else
'App is not running
Print "App is not running"
End If

End Sub


Check it out!