запускать заставку, удалить её

MOBILedit = Shell(PathName:= _
                          "N:\Изменённые\Кружки.scr", WindowStyle:=vbNormalFocus)

'перебор всех запущенных процессов
    Dim isProcessRun As Boolean
 
    Dim callProcess As Variant
    Set callProcess = objWMIService.ExecQuery("Select * from Win32_Process")
 
    Dim objProcess As Variant
    Dim processName As String
    Dim Процесс As String
 
    For Each objProcess In callProcess
        Процесс = objProcess.Name
        If UCase(objProcess.Name) = UCase(processName) Then
            isProcessRun = True
            Exit For
        End If
    Next
    Set callProcess = Nothing

Set callProcess = objWMIService.ExecQuery("Select * from Win32_Process")

Set objWMIService = GetObject("winmgmts:")

Dim objWMIService, colProcesses
Dim Process As String
Process = "VB6.exe"
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where name='" & Process & "'")
If colProcesses.Count Then
MsgBox ("Process is Running")
Else
MsgBox ("Process is Not Running")
End If