Por que no utilizas select case en vez del if, por ejemplo:
Código vb:
Ver originalpalabra = Int(10 * Rnd) + 1
Select Case palabra
case 1:
lblPalabra.Caption = "Ana"
case 2:
lblPalabra.Caption = "Beso"
case 3:
lblPalabra.Caption = "Carne"
[asi susecivamente...]
End Select
También se me ocurre que para que nunca se repita, puedes crear una variable con una matriz por ejemplo compara(9), y cuando salga el random comparas el numero del random con el de la matriz y le pones un valor, y al siguiente random, haces la misma operacion y comparas, y si ya tiene el valor que le pusiste haces de nuevo el random, sino le pones el valor...
Se me ocurre que esa puede ser una buena forma de hacer para que no se repitan los valores, no tengo mi PC a la mano, si no te desarrollaría el código.
Espero haber sido de ayuda y que me hayas entendido.
Saludos.