Идите для ложного довольно чем поистине. Первая форма не прочитана (проверено) где вы фокусируете.
Если не Me.Check1 после этого
Me.Page1.SetFocus
ElseIf не Me.Check2 после этого
Me.Page2.SetFocus
…
Еще 'последней странице не нужно испытание
Me.PageX.SetFocus
Закончитесь если