Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
  
Private Declare Function SetForegroundWindow Lib "user32" ( _
  ByVal hwnd As Long) As Long

Private Declare Function BringWindowToTop Lib "user32" ( _
  ByVal hwnd As Long) As Long
  
Public Sub ActivateWindow()
    Dim hwnd As Long
    Dim lngRet As Long
    
    hwnd = FindWindow(vbNullString, "Безымянный - Блокнот")

    lngRet = SetForegroundWindow(hwnd)
    'lngRet = BringWindowToTop(hwnd)
End Sub