Naja, jeder Anfang ist schwer.
... aber über Syntax kann man ja streiten.
Ich denke mal, du solltest vielleicht den Rückgabewert von :
antwre = CInt(inputbox(.....))
auf integer casten, denn sonst vergleichst du ja einen String mit einem Intergerwert, und das ist in Folge immer falsch!
... generell würde ich dir überhaupt empfehlen, deine Variablen ordentlich zu deklarieren, denn da fallen dir solche Fehler schneller auf.
Dim i,y,x as Interger
Dim wort as String
.. etc.
ich hoffe das hilft dir,
XL