Code like this is extremely inefficient; why are you setting Trad(..) every time you call Word() ? 

Dim Trad(0 To 14)

Function Word(nr As Integer) As String
Trad(0) = "BREAD"
Trad(1) = "EGG"
Trad(2) = "CHEESE"
Trad(3) = "WATER"
Trad(4) = "JUICE"
Trad(5) = "SPOON"
Trad(6) = "FORK"
Trad(7) = "KNIFE"
Trad(8) = "CUP"
Trad(9) = "GLASS"
Trad(10) = "PLATE"
Trad(11) = "BREAKFAST"
Trad(12) = "LUNCH"
Trad(13) = "DINNER"
Trad(14) = "SNACK"
Word = Trad(nr) 
End Function
You could

1. Make Trad ( ) a Public variable and initialize Trad in a setup sub. Don't even need a function like Word, just reference i.e. Trad(nr)