سلام
کلمات رو در یک آرایه بزار و با تابع rnd و در یک حلقه، عدد تصادفی به تعداد دلخواه تولید کن و اون عنصر آرایه رو بردار
randomize timer

dim w(2000)

w(0)=""

w(1)=""

w(1999)=""

dim i%, x&

for i = 1 to 12

    x = int(rnd * 1999) + 1

    msgbox w(x)

next