Dim MyValue, Response

Randomize

Do Until Response = vbNo

MyValue = Int((10 * Rnd) + 1)

MsgBox MyValue

Response = MsgBox ("Исчо? ", vbYesNo)

Loop