Loop through userform text boxes

I have several textboxes on a userform. I need to loop through them. Out of all the textboxes on the userform, I need to loop through the ones names ADP1, ADP2, ADP3, ADP4.

Set HE = CreateObject("HostExplorer")
        Set MyHost = HE.CurrentHost
        Rc = MyHost.keys(ADP1)
        Rc = MyHost.Runcmd("TAB")
        Rc = MyHost.keys(AS1)

This is a shot clip of the code: If I wanted to loop this part of the code and have it do this:

Set HE = CreateObject("HostExplorer")
        Set MyHost = HE.CurrentHost
        
        Rc = MyHost.keys(ADP2)
        Rc = MyHost.Runcmd("TAB")
        Rc = MyHost.keys(AS1)

        Rc = MyHost.keys(ADP3)
        Rc = MyHost.Runcmd("TAB")
        Rc = MyHost.keys(AS1)

        Rc = MyHost.keys(ADP4)
        Rc = MyHost.Runcmd("TAB")
        Rc = MyHost.keys(AS1)