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