Index Order For Controls

Hello Excellant,

Here is the updated version of the "Test" button. This will display the entries in order.

Private Sub CommandButton5_Click()
 'TEST BUTTON
 
  Dim I As Long, N As Long
  Dim Length As String
  Dim TxtBox As Object
  
    For I = 1 To 34
      If I > 2 Then N = I * 2 Else N = I
      Set TxtBox = Controls("txtLength" & Format(N, "00"))
        If TxtBox > " " Then
           Length = Length & TxtBox & "-" & N & "', "
        End If
    Next I
    
    If Length <> "" Then MsgBox Left(Length, Len(Length) - 2)
    
End Sub