Скрытие окна консоли

Option Explicit
Dim WSHShell
Dim oShell, nResult
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "D:\КОФЕИН\caffeine64.exe"
Set oShell = CreateObject("Wscript.Shell")
nResult = oShell.Popup ("КОФЕИН запущен! Это окно закроется через 3 сек.", 3,"AHTUNG!" , vbInformation)
Set WSHShell = Nothing
Set oShell = Nothing

Sub caffeine64()
    Dim Window, exeName
    'Dim TimeCaffeine As Variant
    
    Window = MsgBox("Для запуска Кофеина нажмите ОК", 1, "Желаете запустить Кофеин?")
    'TimeCaffeine = InputBox("Введите время работы Caffeine в минутах")
        If Window = 1 Then
            MsgBox "Вы уверены? Запускаем скрипт..."
           
            Set objShell = CreateObject("WScript.Shell")
                    objShell.Run """D:\КОФЕИН\caffeine64.exe""", 1
    '               ????? Как прописать аргументы запуска "D:\КОФЕИН\caffeine64.exe" -exitafter: 560, 1 с учётом, что 560 будет в переменной TimeCaffeine (..& TimeCaffeine & ...)
            Set objShell = Nothing
                Dim pShell As Object
                    Set pShell = CreateObject("WScript.Shell")
                    pShell.PopUp "Активирован caffeine64.exe, это сообщение закроется через 3 сек.", 3, "AHTUNG!", vbOKOnly Or vbInformation
    '               pShell.PopUp "caffeine64.exe завершит работу через 560 мин., это сообщение закроется через 3 сек.", 3, "AHTUNG!", vbOKOnly Or vbInformation
                    Set pShell = Nothing
            Else
            MsgBox "Ну нет, так нет..."
        End If
End Sub

With CreateObject("WScript.Shell")
   .Run "D:\КОФЕИН\caffeine64.exe -exitafter: 560", 0
   .Popup "КОФЕИН запущен!" & vbLf & "Данное сообщение будет отображаться в течение 8 секунд", 8, "AHTUNG", 4160
End With