Входим в VB, нажимаем Standart EXE. На форму кидаем 2 кнопки, и 1 текстовое поле. У первой кнопки свойство Caption будет "Загадай число", у второй "Ввод"; у текстового поля свойство Caption уберите. У тебя получится такая штука:

Код:

'Здесь вместо sas,qw,qw2 ты можешь ввести любые буквы, только не забудь поменять их во всем коде (например, если ты вместо sas объявишь blabla, то тебе придется везде менять sas на blabla) 
 Dim sas As Integer 'Объявляем переменную для хранения чисел 
 Dim qw As Integer 
 Dim qw2 As String 'Объявляем переменную для хранения символов 
 Private Sub Command1_Click() 'При нажатии на кнопку "Загадай число" 
 Randomize 'Срабатывает оператор случайных чисел, чтоб при запуске программы генерировались разные числа 
 sas = Fix(Rnd * 100) 'уравниваем случайное число  
 qw = 0 
 Text1.Text = "" 
 End Sub 

 Private Sub Command2_Click() 'При нажатии на кнопку "Ввод" 
 qw = qw + 1 'Включаем счетчик, каждый раз при нажатии на кнопку к переменной qw будет прибавляться 1 
 If qw <= 3 Then 'Если qw будет < или = 3 то 
 qw2 = "Чемпион" 'qw2="Чемпион" 
 End If 
 If qw >= 5 Then 'Это все аналогично 
 qw2 = "Профи" 
 End If 
 If qw >= 7 Then 
 qw2 = "Салага" 
 End If 
 If qw >= 10 Then 
 qw2 = "Ламер" 
 End If 
 If Val(Text1.Text) = sas Then 'Если Text1.Text=sas то 
 MsgBox "Ты победил за " & qw & " раз " + qw2, 32 'Комп выдает сообщение о кол - ве нажатых раз на кнопку т.е. qw 
 End If 
 If Val(Text1.Text) < sas Then 
 MsgBox "Децл Побольше", 32 
 End If 
 If Val(Text1.Text) > sas Then 
 MsgBox "Децл Поменьше", 32 
 End If 
 End Sub 

 Private Sub Form_Load() 
 Form1.Caption = "Угадай число" 
 End Sub

Отлично! Теперь ты Гейм - Мейкер. Ты сделал первую игру, хоть и она очень простая, но это на первое время. Исходник можешь скачать отсюда