MsgBox запускается в свернутом состоянии

Sub VBA_Chrome()
    Dim Number  As Long
    Dim a
    NumberPP = 1
CreateObject("WScript.Shell").Run "https://translate.yandex.ru/?from=tabbar&source_lang=en&target_lang=ru"
Application.Wait (Now() + TimeValue("00:00:03"))
    Cells(2, 1).Select
    ActiveCell.Value = NumberPP
    a = Cells(ActiveCell.Row, 2).Value
    SetClipBoardText a
    txt = ClipboardText
        Debug.Print Now & "  Текст в буфере для Chrome: " & txt
    Cells(ActiveCell.Row, 4).Value = Now
    SetCursorPos 750, 200           'клик на поле ввода слова
        mouse_event &H2, 0, 0, 0, 0
        Sleep (300)
        mouse_event &H4, 0, 0, 0, 0
        Sleep (200)
      Sleep (300)
    SendKeys "^v"
    Application.CutCopyMode = False ' как бы "очистка буфера"
    Application.Wait (Now() + TimeValue("00:00:01"))
        SetCursorPos 1700, 200           'клик на окно перевода
            mouse_event &H2, 0, 0, 0, 0
            Sleep (300)
            mouse_event &H4, 0, 0, 0, 0
        Sleep (1300)
        SetCursorPos 1807, 195 'клик на кнопку копирования
        mouse_event &H2, 0, 0, 0, 0
            Sleep (300)
            mouse_event &H4, 0, 0, 0, 0
'    SendKeys "^a"
'    Sleep (300)
'    SendKeys "^c"
        Sleep (100)
    SetClipBoardText a
    txt = ClipboardText
        Debug.Print Now & "  Текст из окна перевода Chrome: " & txt
        Debug.Print " "
    Range("C2").Value = txt
    Range("A3").Value = NumberPP + 1
    SendKeys "{NUMLOCK}"
        MsgBox "Перевод " & Cells(ActiveCell.Row, 2).Value & ": " & Cells(2, 3).Value, , "Сообщение"
    ClearClipBoardText
End Sub
 
Function ClipboardText() ' чтение из буфера обмена
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        ClipboardText = .GetText
    End With
End Function
 
Function SetClipBoardText(ByVal Text As Variant) As Boolean
    SetClipBoardText = CreateObject("htmlfile").parentWindow.clipboardData.setData("Text", Text)
End Function
 
'Функция очистки буфера обмена
Function ClearClipBoardText() As Boolean
    ClearClipBoardText = CreateObject("htmlfile").parentWindow.clipboardData.clearData("Text")
End Function

Выбираем, содержимое какого тега по порядку, начинающегося с 0, нужно извлечь
    myTxt = myTag(5).innerText

Sub Primer()
    Dim trimString As String, res As String
    Dim myHtml As String, myFile As Object, myTag As Object, myTxt As String
    myHtml = GetHTML1("https://nataassa.livejournal.com/")
    Set myFile = CreateObject("HTMLFile")
    myFile.body.innerHTML = myHtml
    Set myTag = myFile.getElementsByTagName("div")
    myTxt = myTag(91).innerText
    res = Split(myTxt, "Добрый вечер, друзья! ")(0)
    Debug.Print res
End Sub