Option Explicit
Public Sub dynamische_Textbox()
Const UFName As String = "Attempt"
Dim UFormBox As Control
Dim leftPos  As Integer
Dim Lines    As Integer
Dim Loop1    As Integer
Dim Loop2    As Integer
Dim UFRows   As Integer
Dim FormName As String
Dim MyUForm  As Object
Lines = 5
UFRows = 1
leftPos = 12
Set MyUForm = ThisWorkbook.VBProject.VBComponents.Add(3)
With MyUForm
     .Properties("Height") = 180
     .Properties("Width") = 250
     .Name = UFName
     .Properties("Caption") = "Title"
End With
FormName = MyUForm.Name
For Loop1 = 1 To UFRows
    For Loop2 = 1 To Lines
        Set UFormBox = MyUForm.Designer.Controls.Add("Forms.TextBox.1", "T" & Loop1 & Loop2, True)
        With UFormBox
             .Height = 15
             .Width = 36
             .Top = 18 * Loop2
             .Text = "ID" & Loop2 & "," & Loop1
             .Left = leftPos
             .Visible = True
        End With
    Next Loop2
    leftPos = ((Loop1 * 36) + 12)
Next Loop1
UserForms.Add(FormName).Show
Stop
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(FormName)
End Sub