Dim random As New Random()
Dim RandomNumber As Integer = random.Next(1,50)
Dim Numberchosen as integer = 34
Do Until Numberchosen = RandomNumber
Console.WriteLine("Pleae pick a number between 1 and 50")
Numberchosen = Console.ReadLine()
If Numberchosen = RandomNumber Then
Console.WriteLine("Nice!!!" & NumberChosen &" You guessed it!!")
Console.WriteLine("Ugh, that ain't the right number. Try again!")