For i = 1 to 10

with textbox <= сюда нужно подставить значение переменной i
 ...
 ...
 ...
end with

next i

with textbox & i
with textbox + i

testValue = Application.InputBox("Введите число от 1 до 5")
    If testValue= False Then
        Exit Sub
    ElseIf testValue>= 1 And testValue<= 5 Then
        UserForm2.Show
    Else
        MsgBox "Введено неверное значение"
        Exit Sub
    End If

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=********.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=*********;Use Procedure for Prepare=1;Aut" _
        , _
        "o Translate=True;Packet Size=4096;Workstation ID=*********;Use Encryption for Data=False;Tag with column collation when possibl" _
        , "e=False;Initial Catalog=*********"), Destination:=Range("$A$1")).QueryTable

Call Run_macros

Sub Run_macros()
   set objExcel = CreateObject ("Excel.Application")
   objExcel.Visible = false    
   Op_writ="C:\Users\Andrey\Desktop\Выгрузка\Events.csv"
   objExcel.Workbooks.Open (Op_writ)
   objExcel.run "C:\Users\Andrey\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB!run"
   objExcel.Workbooks("Events.csv").Close(false)
   objExcel.Quit
end sub

'objExcel.run "run"
'objExcel.run "PERSONAL.XLSB!run"

Call Run_macros

Sub Run_macros()
   set objExcel = CreateObject ("Excel.Application")
   objExcel.Visible = false    
   Op_writ="C:\Users\Andrey\Desktop\Отчеты\Журнал.xlsm"
   objExcel.Workbooks.Open (Op_writ)
   objExcel.run "Tests"
   objExcel.Workbooks("Журнал.xlsm").Close(false)
   objExcel.Quit
end sub

$StartDate = (Get-Date).tostring("dd/MM/yyyy",$Local:RU)
$Machine = "okr-stp"
$Events = Get-WinEvent -FilterHashtable @{Logname = "ForwardedEvents"; StartTime=$StartDate;}  -ComputerName $Machine

Sub NTLogEvent()
    ' © 2022 ExcelVBA.ru
    Dim i&, sh As Worksheet
    Set sh = Workbooks.Add.Worksheets(1) ' создаём новый файл под вывод данных
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set colLoggedEvents = objWMIService.ExecQuery("Select * from Win32_NTLogEvent " & "Where Logfile = 'System'")
    ' выводим заголовок таблицы
    sh.Range("a1").Resize(, 9).Value = Array("Category", _
        "Computer Name", "Event Code", _
        "Record Number", "Source Name", _
        "Time Written", "Event Type", "User", "Message")
 
   Const LIMIT& = 2000 ' ограничение для количества записей
    For Each objEvent In colLoggedEvents ' перебираем записи журнала Windows
        Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 9).Value = Array(objEvent.Category, _
        objEvent.ComputerName, objEvent.EventCode, objEvent.RecordNumber, objEvent.SourceName, _
        objEvent.TimeWritten, objEvent.Type, objEvent.User, objEvent.Message)
        i = i + 1: If i > LIMIT& Then Exit For
    Next
    sh.UsedRange.EntireColumn.AutoFit ' автоподбор ширины столбцов
End Sub

Dim aArray() As Variant
    aArray() = Selection.Value

Dim VGOChoise() As Variant
    VGOChoise() = Application.InputBox ???

Range("A:A,B:B,D:D,E:E,L:L,N:N,O:O,W:W").Select
            Selection.Copy
wbImport.Worksheets(yearsArray(s)).Range("a1").PasteSpecial (xlPasteAll)

With wdApp
            Set wdDoc = .ActiveDocument
                wdDoc.Bookmarks("FIO").Select
                .Selection = massiv(1, 1)
            Set wdDoc = .ActiveDocument
                wdDoc.Bookmarks("PODRAZDELENIE").Select
                .Selection = massiv(1, 3)
            Set wdDoc = .ActiveDocument
                wdDoc.Bookmarks("DOLJNOST").Select
                .Selection = massiv(1, 2)
            End With
            wdDoc.SaveAs (ThisWorkbook.Path & "\" & "Анкеты Кодовое Слово" & "\" & massivDogovori(k) & " " & massiv(1, 1) & ".docx")
            wdDoc.Close
            Application.CutCopyMode = False
            ThisWorkbook.Saved = True