Sub Test()   
Dim arr(3) As String
arr(1) = "Test"
arr(2) = "Test 2"
arr(3) = "Test 3"
MsgBox Join(arr, vbCrLf)
End Sub

Sub Test()
    
Dim arr(3) As String

arr(1) = "Test"
arr(2) = "Test 2"
arr(3) = "Test 3"
a = ""
For i = UBound(arr) To LBound(arr)
    a = a & arr(i)
Next i
MsgBox a

End Sub

For Ndx = LBound(arr) To ((UBound(arr) - LBound(arr) + 1) \ 2)
    Temp = arr(Ndx)
arr(Ndx) = arr(Ndx2)
arr(Ndx2) = Temp
    Ndx2 = Ndx2 - 1
Next Ndx

if  [A1] = "Userform1" then
Userform1.Show
else if [A1] = "Userform2" then
Userform2.Show
else if
'и так далее до конца списка

end if

Userform1 .Show

uf="Userform1 "
uf.Show

With OBJHTTP
        .Open "POST", Url, False
        .setRequestHeader "Accept", "*/*"
        .setRequestHeader "Content-type", "application/json"
        .setRequestHeader "Origin", "https://p2p.binance.com"
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"
        .send "{""page"":1,""rows"":1,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""RUB"",""transAmount"":1000,""publisherType"":null,""merchantCheck"":false}"
        bin_answer_buy = .ResponseText
End With

Dim TimeToRun

Sub MyMacro()
Dim abook As Workbook
Set abook = ThisWorkbook
lr = abook.Sheets("Report").Cells(Rows.Count, 1).End(xlUp).Row
abook.Sheets("Report").Cells(lr + 1, 1) = Format(Now, "hh:mm:ss")
Call NextRun 
End sub

Sub NextRun()

    TimeToRun = Now + TimeValue("00:00:02")
    Application.OnTime TimeToRun, "MyMacro"

End Sub

[I2].FormulaR1C1 = "=VLOOKUP(R[-1]C[4],'" & CFile & "]Лист1'!C1:C9,9,0)"

Application.Run "C:\Users\IMantrov\Documents\Библиотека.xlsm!Test"