[medium] Bingogetallen

msgbox "Bingonummers nodig? Hier komen ze!"
hoeveelq = inputbox("Hoeveel bingonummers?")
hoeveel = cdbl(hoeveelq)

if hoeveel <= 0 OR hoeveel > 99 then

msgbox "" & hoeveelq + " Bingogetallen... hoe wil je dat gaan doen?"

else

dim bingot(999)
dim bingo(999)

t = 1

for t = 1 to hoeveel
Randomize Timer
bingot(t) = (int(rnd*90))+ 1
next

for t = 1 to hoeveel
bingo(t) = cstr(bingot(t))
tex = tex + "-" & bingo(t) & vbNewLine + ""
next

msgbox tex

end if