randomize
Dim boodschap(10)
boodschap(0)="nul"
boodschap(1)="een"
boodschap(2)="twee"
boodschap(3)="drie"
boodschap(4)="vier"
boodschap(5)="vijf"
boodschap(6)="zes"
boodschap(7)="zeven"
boodschap(8)="acht"
boodschap(9)="negen"
boodschap(10)="tien"
dim nr
nr=int(rnd*10)
msgbox boodschap(nr)