For i = 1 To 10
        Worksheet("Arkusz1").Cells(1, i).Value = UserForm1.TextBox & i
    Next i

Dim txtZ As Object    ' TextBox
    Set txtZ = Me.MultiPage1.Pages(2).Controls.Add("Forms.TextBox.1")

    With txtZ
        .Name = "Z_moja nazwa"
        .Text = "Podaj skąd"
        .Left = 10
        .Width = 100
        .Top = 0
    End With

Private Sub Text_AfterUpdate()
...
End Sub

Public WithEvents Tekst As MSForms.TextBox
Private Sub Tekst_Change()
MsgBox UserForm1.ActiveControl.Name
End Sub

' zakładam z góry że nie bedzie więcej Zetów niż 20 i Do niż 20
Dim PoleTekstowe(1 To 20, 1 To 2) As New tekstowe
Dim pozycja As Integer ' globalne
Dim ktory As Integer ' globalne

Private Sub CommandButton1_Click()

ktory = ktory + 1
pozycja = pozycja + 5


      Dim txtZ As Object ' TextBox
      Dim txtDo As Object 'TextBox

      Set txtZ = UserForm1.Controls.Add("Forms.TextBox.1")
      Set txtDo = UserForm1.Controls.Add("Forms.TextBox.1")
     
     With txtZ
          .Name = "Z" & ktory
          .Text = "Podaj skąd"
          .Left = 10
          .Width = 100
          .Top = 10 + (pozycja * 5)
      End With
      With txtDo
          .Name = "Do" & ktory
          .Text = "Podaj dokąd"
          .Left = 150
          .Width = 100
          .Top = 10 + (pozycja * 5)
      End With
      
      
        Set PoleTekstowe(ktory, 1).Tekst = Controls("Z" & ktory)
        Set PoleTekstowe(ktory, 2).Tekst = Controls("Do" & ktory)

End Sub

Dim pozycja As Integer ' globalne
Dim ktory As Integer ' globalne
Dim nextline As Integer
Private Sub CommandButton1_Click()
Dim code As String

ktory = ktory + 1
pozycja = pozycja + 5

     On Error Resume Next
     Set x = ActiveWorkbook.VBProject
     If Err <> 0 Then
         MsgBox "Błąd.", vbCritical
         On Error GoTo 0
         Exit Sub
     End If

     Dim txtZ As Object ' TextBox
     Dim txtDo As Object 'TextBox

     Set txtZ = UserForm1.Controls.Add("Forms.TextBox.1")
     Set txtDo = UserForm1.Controls.Add("Forms.TextBox.1")
    
    With txtZ
         .Name = "Z" & ktory
         .Text = "Podaj skąd"
         .Left = 10
         .Width = 100
         .Top = 10 + (pozycja * 5)
     End With
     With txtDo
         .Name = "Do" & ktory
         .Text = "Podaj dokąd"
         .Left = 150
         .Width = 100
         .Top = 10 + (pozycja * 5)
     End With

    code = "Private Sub Z" & ktory & "_Change()" & vbCrLf
    code = code & " MsgBox ""Nie można uaktywnić arkusza Arkusz1.""" & vbCrLf
    code = code & "End Sub"
    
    With x. _
      VBComponents("UserForm1").CodeModule
        nextline = .CountOfLines + 1
        .InsertLines nextline, code
    End With

     UserForm1.Show
End Sub

MsgBox Controls("Z1").Text

Dim pozycja As Integer ' globalne
Dim ktory As Integer ' globalne
Sub AddTxtBox()

ktory = ktory + 1
pozycja = pozycja + 5

    On Error Resume Next
    Set x = ActiveWorkbook.VBProject
    If Err <> 0 Then
        MsgBox "Błąd.", vbCritical
        On Error GoTo 0
        Exit Sub
    End If

    Dim txtZ As Object ' TextBox
    Dim txtDo As Object 'TextBox

    Set txtZ = UserForm1.Controls.Add("Forms.TextBox.1")
    Set txtDo = UserForm1.Controls.Add("Forms.TextBox.1")
   
   With txtZ
        .Name = "Z" & ktory
        .Text = "Podaj skąd"
        .Left = 10
        .Width = 100
        .Top = 10 + (pozycja * 5)
    End With
    With txtDo
        .Name = "Do" & ktory
        .Text = "Podaj dokąd"
        .Left = 150
        .Width = 100
        .Top = 10 + (pozycja * 5)
    End With

    UserForm1.Show
     
End Sub