private sub command1_click()
dim x as long,b as integer
Randomize
aqtata:
x = int((99999 - 10000 + 1) * Rnd + 10000)
b = Asc(Right(x,1))
b = b + Asc(left(Right(x,2),1))
if b mod 10 = 4 then
text1.text = "A1423" & x
Exit Sub
else
Goto aqtata
End if
End Sub
