Hola
Primero genera un número aleatorio utilizando la función Rnd (antes de llamar a rnd utiliza la instrucción randomize) y métela en una variable. La forma de generar el número la puedes ver en la ayuda del VB.
Cita: Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)
Te creas una variable booleana para controlar si acierta el número o no, y otra para contar los errores. Con un mientras (while) acierto sea false, pides que introduzca un número y lo comparas con el número generado, si es correcto pones la variable acierto a true (para salir del mientras) y si no sumas el contador y le das la pista (comparando los dos números)
Cuando salga del mientras (porque acierto es true o porque contador es mayor que 10) comparas con un Select Case el valor del contador y muestras el mensaje.
Bueno todo esto es para darte una idea, seguro que no he tenido en cuenta todas las posibilidades, pero supongo que te servirá para comenzar y si tienes algo mas concreto no dudes en preguntar (darte algo mas concreto sería darte el programa)
--Saludos--