sLinkTo = "net stop messenger"'bkb start
    
lRet = Shell(sLinkTo, vbHide)

Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const STILL_ACTIVE As Long = &H103

Private Sub Command1_Click()

Dim sLinkTo As String
Dim lRet As Long
Dim str As String
Dim retval As Boolean

Dim pid As Long, hProcess As Long, exit_code As Long

sLinkTo = "net start messenger"
    
pid = Shell(sLinkTo, vbHide) 'ShellExecute(0, "open", sLinkTo, "", 1, 1)

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION,  0 , pid)
 If hProcess <>  0  Then
    Do
        GetExitCodeProcess hProcess, exit_code
        DoEvents
    Loop Until exit_code <> STILL_ACTIVE
    'MsgBox "exit_code = " & exit_code, vbInformation
    CloseHandle hProcess
 End If
 If exit_code =  0  Then
  MsgBox "OK!", , "Запуск!"
 Else
  MsgBox "NO...", , "Запуск!"
 End If

End Sub