Ola Pessoal, novamente precisando de ajuda!

Tenho um formulário (Userform1) onde sempre que o usuário precisa importar um material ele especifica a quantidade no campo UserForm1.QITtxt.Value e com isso abre novo formulário com 10 linhas, 30 Textbox, 10 ComboBox e 40 Lables, porém normalmente apenas 4 ou 5 linhas são preenchidos, em casos excepcionais as 10 linhas são preenchidas.

Gostaria de saber como faço um for each ou um Do While ou uma estrutura de repetição para que se o usuário digitar 1, 2 ou 3 ou uma quantidade menor que 10 no Userform1 - O novo formulário carregar apenas a quantidade necessária solicitada.

segue meu codigo

Private Sub UserForm_initialize()
                
Dim t As Integer
Dim i As Integer

i = UserForm1.QITtxt.Value + 1
t = 0

Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top

Me.ScrollBars = fmScrollBarsVertical ' ativa[ a barra de rolagem vertical
Me.ScrollHeight = 1000    'defini o espaçamento da barra de rolagem

For t = 0 + i To 44
     Item5.PNTXT & t.Visible = False
     Item5.PNLB & t.Visible = False
     Item5.QTDTXT & t.Visible = False
        
   
Next


Me.STATTXT1.Enabled = False
Me.STATTXT2.Enabled = False
Me.STATTXT3.Enabled = False
Me.STATTXT4.Enabled = False
Me.STATTXT5.Enabled = False


Call HabilitaBotoes(Me)
        'cbcbox1
        CBCUR1.AddItem "EUR"
        CBCUR1.AddItem "USD"
        CBCUR1.AddItem "BRL"
        CBCUR1.AddItem "CLP"
        CBCUR1.AddItem "MXN"
        CBCUR1.AddItem "ARG"
        'Cbbox2
        CBCUR2.AddItem "EUR"
        CBCUR2.AddItem "USD"
        CBCUR2.AddItem "BRL"
        CBCUR2.AddItem "CLP"
        CBCUR2.AddItem "MXN"
        CBCUR2.AddItem "ARG"
        'cbbox3
        CBCUR3.AddItem "EUR"
        CBCUR3.AddItem "USD"
        CBCUR3.AddItem "BRL"
        CBCUR3.AddItem "CLP"
        CBCUR3.AddItem "MXN"
        CBCUR3.AddItem "ARG"
        'cbbox4
        CBCUR4.AddItem "EUR"
        CBCUR4.AddItem "USD"
        CBCUR4.AddItem "BRL"
        CBCUR4.AddItem "CLP"
        CBCUR4.AddItem "MXN"
        CBCUR4.AddItem "ARG"
        'cbbox5
        CBCUR5.AddItem "EUR"
        CBCUR5.AddItem "USD"
        CBCUR5.AddItem "BRL"
        CBCUR5.AddItem "CLP"
        CBCUR5.AddItem "MXN"
        CBCUR5.AddItem "ARG"
       
End Sub