trying to code is a test to see if a program/application is already running

I was wondering if someone could help me figure this out, I have the code to launch it working fine, however I forgot to take into account people may already have the program running which would cause an issue launching a second version.

Im trying to code in a check before launching into the program launch however, it isn't working for me. Any ideas as always would be appreciated greatly. If the app check comes back true then I need to jump down to the check for login, which I think...

Sub Darkside_Launch()

    Dim x As Variant
    Dim Path As String
    Dim s As New AutSess
    Dim autEclps As Object
    
        Set autEclps = CreateObject("Pcomm.auteclps")
        Set autECLOIA = CreateObject("Pcomm.autecloia")
        
        sApp = "3270 Terminal"
        If IsAppRunning(sApp) = True Then
        MsgBox ("Darkside is already Running")
        Else
    ' Set the Path variable equal to the path of your program's installation
         Path = "generic path"

         x = Shell("generic path", 0)
         
        End If
        
         Application.Wait (Now + TimeValue("0:00:10"))
        
            s.SetConnectionByName ("A")
            s.autEclps.StartCommunication
         If s.autEclps.SearchText("Userid . . . .") Then
            Login.Show vbModeless
            
         End If
    
End Sub

Thanks for the ideas, I have been to both the provided links prior to posting, and I am using the function provided by the second. I am however still not getting the desired result, It just blows through to launching a second version of the program even if the program is already open.

based off what I have for code thus far, what would be the best course of action? also, thank you all again for the help thus far.

THe best course of action is to use the facilities provided by your application; PCOMMS in this case.

PCOMMS provides a method to return the number of active terminal windows natively. For example:

Sub GetTermCount()

   Dim autECLConnList as Object

   On Error Goto Catch
   Set autECLConnList = CreateObject("PCOMM.autECLConnList")
   autECLConnList.Refresh
   MsgBox "There are " & cStr(autECLConnList.Count) & " terminal sessions running...", vbinformation

Finally:

   Set autECLConnList = Nothing
   Exit sub

Catch:

   MsgBox "ERROR: " & Err.Description & vbCrLf & "Unable to get count of terminal sessions", vbExclamation, "Error"
   Resume Finally

End Sub

Written freehand and untested - PCOMMS not available on an Android tablet

Cytop thank you for pointing out the PCOMM portion I was missing, Used that with what I had and a few changes and boom we have a working line that tests, and logically moves through as required. Thank you to all you for the collaboration

Sub Darkside_Launch()

    Dim x As Variant
    Dim Path As String
    Dim s As New AutSess
    Dim autEclps As Object, autECLConnList As Object
    
        Set autEclps = CreateObject("Pcomm.auteclps")
        Set autECLOIA = CreateObject("Pcomm.autecloia")
        Set autECLConnList = CreateObject("PCOMM.autECLConnList")
        
    autECLConnList.Refresh
    If CStr(autECLConnList.Count) < 1 Then
    GoTo darksiderun
    Else
    If CStr(autECLConnList.Count) = 1 Then MsgBox ("Darkside is already running")
    GoTo VerifyLogin
    End If


darksiderun:
        
    ' Set the Path variable equal to the path of your program's installation
         Path = "Generic.bat"

         x = Shell("Generic", 0)
        
         Application.Wait (Now + TimeValue("0:00:10"))
        
            s.SetConnectionByName ("A")
            s.autEclps.StartCommunication
         If s.autEclps.SearchText("Userid . . . .") Then
            Login.Show vbModeless
            
         End If
        Exit Sub
        
         
VerifyLogin:

    Application.Wait (Now + TimeValue("0:00:05"))
        
            s.SetConnectionByName ("A")
            s.autEclps.StartCommunication
         If s.autEclps.SearchText("Userid . . . .") Then
            Login.Show vbModeless
        Else
            Exit Sub
            
         End If
    
    
End Sub