Guessing Game

I need to write a simple program in VB for a guessing game that selects a random integer of 1 to 1k that prompts the player for a guess, the program should loop until the player guesses the correct number, the program should help the player zero in on the correct answer by reponding to each guess as either too high or too low.