[easy] Naam select

aantal = inputbox("Uit hoeveel moet geloot worden? In cijfers invullen!")

if isNumeric(aantal) then

aantalloot = cdbl(aantal)

dim naam(999)

t = 0

do while t < aantalloot

t = t + 1

naam(t) = inputbox("Geef naam " & t)

loop

msgbox "En de winnaar is..."

Randomize Timer
i = (int(rnd*aantalloot))+1

imsg = cstr(i)

msgbox "Inzending " & imsg + " : " & naam(i)

else

msgbox "Fout!"

end if