' 300 Elemanlı bir dizi oluşturduk, sen buraya kelimeleri giriceksin
Dim Kelimeler(300) As String
Kelimeler(1) = kelime1
Kelimeler(2) = kelime2
Kelimeler(3) = kelime3
..
..
Kelimeler(300) = kelime300

' 300 Adet girdikten sonra  2 tane textbox ekliceksin birincialan ve ikinci alan,
' birincialan : sayıyı girdiğin yer
' ikincialan : kelimenin çıktığı yer
' Mantığı da şu 300 elemanlı bir kümen varmış gibi düşün, sen 300 taneden 8.yi, 220.yi veya 11.yi çağırıyorsun yada kaçıncıyı istersen artık.

Private Sub Button1_Click()
      ikincialan.text = Kelimeler(birincialan.text)
End Sub