Code:
Dim procs() As Process = Process.GetProcessesByName("Outlook")
If procs.Count > 0 Then MsgBox("Oulook is running")

' Obviously, each element in the procs() array will contain an outlook process