DO CASE CASE NOT BETWEEN(thisform.pageframe1.page15.text3.value,1,2) =MESSAGEBOX("rong choises") thisform.Pageframe1.ActivePage = 15 thisform.pageframe1.page15.text3.SetFocus &&& OTHERWISE thisform.Pageframe1.ActivePage = 14 thisform.Pageframe1.Page14.Text1.SetFocus() ENDCASEthanks.