Tam anlayamadım ama örnek uygulama hazırladım. Metin kutuları çizgilerin altında.

Me.Controls("Line" & Forms!Form1!sayi.Value).Tag = "Line" & Forms!Form1!sayi.Value

Me.Controls("Metin" & Forms!Form1!sayi.Value).Tag = "Metin" & Forms!Form1!sayi.Value

For Each ctl1 In Me.Controls

        If ctl1.Tag = "Line" & Forms!Form1!sayi.Value Then

            ctl1.Left = 2500

            ctl1.Top = 2500

        End If

Next

For Each ctl2 In Me.Controls

        If ctl2.Tag = "Metin" & Forms!Form1!sayi.Value Then

            ctl2.Left = 2500

            ctl2.Top = 3700

        End If

Next