VBA-msgbox a tlacitka

vsak msgbox normalne vracia hodnotu. pre ok by to malo byt 6(mozes pouzit konstantu vbYes) pre no je to 7(konstanta vbNo)
//edit: uz si presne nepamatam syntax VB, ale malo by to byt nejak takto

dim ret as integer
ret = msgbox(...)
if ret = vbYes then ...
endif

dik, funguje mi to.

...vyskytol sa mi dalsi problem s jednym cyklom:

Dim zadaj, i, ppocet, spolu As Integer
.........
prompt = "zadaj poziciu od 1 do " & ppocet
Do
zadaj = InputBox(prompt, Title, 2)
Loop Until (zadaj > 1) And (zadaj < ppocet)

Nevie mi niekto poradit s touto podmienkou? Vzdy sa to zacykli a neviem preco a nefunguje to ani ked zadam cislo z pozadovaneho intervalu.
Ked tam dam ale iba jednu podmienku, tak to funguje, lenze ja potrebuje obidve.
dik za rady.

skus to dat do zatvorky
Loop Until ((zadaj > 1) And (zadaj < ppocet))

nerobim s VBasicom (chvalabohu), ale nevidim dovod preco by to nemalo fungovat (tak ako to mas ale samozrejme hodnota "zadaj" nemoze byt 1, ani "ppocet").

ani to nepomohlo, skusal som to daj aj do dvoch cyklov.
....nakoniec pomohol prikaz val, sice neviem preco, ked zadaj som zadeklaroval ako integer.