Sub SelectTabIndex(WhichOne As Long)
    Dim c As Control
    For Each c In UserForm1.Controls
        If c.TabIndex = WhichOne Then
            c.SetFocus
            Exit For
        End If
    Next
End Sub