Sub b()
    Dim DownloadFolder As String
    DownloadFolder = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    Debug.Print DownloadFolder
End Sub

    Dim DownloadFolder As String
    DownloadFolder = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

Const DownloadFolder As String = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

Option Explicit

Sub UnRar()
    Dim DownloadFolder As String
        DowloadFolder = "C:\Users\Менеджер\Documents\"
    Dim UnRar As New Shell32.Shell
    
    UnRar.Namespace(DowloadFolder).CopyHere _
        UnRar.Namespace(DowloadFolder & "Архив.zip").Items, 16
        'Unrar.Namespace(DowloadFolder &"Архив.rar").Items, 16
End Sub

Option Explicit
    Dim Ch As Selenium.ChromeDriver
    Dim URL As String
    Dim FindBy As New Selenium.By
    Dim Login As String
    Dim Password As String

Sub PA_Download()

        On Error GoTo ErrorHandl

    Set Ch = New Selenium.ChromeDriver
        URL = "https://dealer.pasystem.ru/Ostatki_price.xlsx"
        Login = "example"
        Password = "12345678"
    Ch.Start
    Ch.Get URL

'на этом этапе выскакивает окно, с которым не могу взаимодействовать как с webelemnt

Exit Sub
ErrorHandl:
        Debug.Print "Артикул " & Article & " не загружен. Изменилась ссылка или таблица"
End Sub

Public Function MyIFS(ParamArray args() As Variant) As Variant
    On Error Resume Next
    
    Dim i As Integer
    'Debug.Print "Количество аргументов - " & UBound(args()) + 1

    For i = 0 To UBound(args())
        'Debug.Print " Аргумент" & i + 1 & ": " & args(i)
        'Debug.Print " Аргумент" & i + 2&; ": " & args(i + 1)
            If args(i) = True Or args(i) = 1 Then
                MyIFS = args(i + 1)
                'Debug.Print "На экране должно быть: " & args(i + 1)
                Exit Function
            End If
        i = i + 1
    Next i
    On Error GoTo ErrHandl
ErrHandl:
    MyIFS = CVErr(xlErrValue)

End Function

Public Function MyIFS(Condition_1 As Boolean, Value_1 As String, Optional Condition_2 As Boolean, Optional Value_2 As String, _
Optional Condition_3 As Boolean, Optional Value_3 As String, Optional Condition_4 As Boolean, Optional Value_4 As String, _
Optional Condition_5 As Boolean, Optional Value_5 As String, Optional Condition_6 As Boolean, Optional Value_6 As String, _
Optional Condition_7 As Boolean, Optional Value_7 As String, Optional Condition_8 As Boolean, Optional Value_8 As String, _
Optional Condition_9 As Boolean, Optional Value_9 As String, Optional Condition_10 As Boolean, Optional Value_10 As String, _
Optional Condition_11 As Boolean, Optional Value_11 As String, Optional Condition_12 As Boolean, Optional Value_12 As String, _
Optional Condition_13 As Boolean, Optional Value_13 As String, Optional Condition_14 As Boolean, Optional Value_14 As String, _
Optional Condition_15 As Boolean, Optional Value_15 As String, Optional Condition_16 As Boolean, Optional Value_16 As String, _
Optional Condition_17 As Boolean, Optional Value_17 As String, Optional Condition_18 As Boolean, Optional Value_18 As String, _
Optional Condition_19 As Boolean, Optional Value_19 As String, Optional Condition_20 As Boolean, Optional Value_20 As String) As String
    On Error GoTo ErrHandl
    Dim i As Integer
    Dim Conditions(1 To 20) As Boolean
            Conditions(1) = Condition_1
            Conditions(2) = Condition_2
            Conditions(3) = Condition_3
            Conditions(4) = Condition_4
            Conditions(5) = Condition_5
            Conditions(6) = Condition_6
            Conditions(7) = Condition_7
            Conditions(8) = Condition_8
            Conditions(9) = Condition_9
            Conditions(10) = Condition_10
            Conditions(11) = Condition_11
            Conditions(12) = Condition_12
            Conditions(13) = Condition_13
            Conditions(14) = Condition_14
            Conditions(15) = Condition_15
            Conditions(16) = Condition_16
            Conditions(17) = Condition_17
            Conditions(18) = Condition_18
            Conditions(19) = Condition_19
            Conditions(20) = Condition_20
    
    Dim Values(1 To 20) As String
            Values(1) = Value_1
            Values(2) = Value_2
            Values(3) = Value_3
            Values(4) = Value_4
            Values(5) = Value_5
            Values(6) = Value_6
            Values(7) = Value_7
            Values(8) = Value_8
            Values(9) = Value_9
            Values(10) = Value_10
            Values(11) = Value_11
            Values(12) = Value_12
            Values(13) = Value_13
            Values(14) = Value_14
            Values(15) = Value_15
            Values(16) = Value_16
            Values(17) = Value_17
            Values(18) = Value_18
            Values(19) = Value_19
            Values(20) = Value_20

    For i = 1 To 20
        
        If Conditions(i) = True Then
            MyIFS = Values(i)
            Debug.Print ActiveCell.Address
            Debug.Print i & ". " & Values(i)
            Exit Function
        End If
    Next i

ErrHandl:
    MyIFS = CVErr(xlErrValue)

End Function