A loop like this should work.

For i = 1 to 4
    With UserForm1.Controls("ADP" & i)
        ' do something
    End With
Next I