if 문으로 스무고개 프로그램 만들어야하는데요

Private Sub Command1_Click()
Dim a As Integer, b As Integer

b = Val(Text1.Text)




If a > b Then
Print "작습니다"
ElseIf a < b Then
Print "큽니다"
Else
Print "ok"
End If

End Sub

Private Sub Form_Load()
Randomize
a = Int(Rnd() * 100)
End Sub

이렇게 했는데 이상함 보고 문제 있는거 알려주세요 부탁해용~~