Message d'erreur exécution 424 un objet est requis sur vb6?

bonjour voici un exercice sur vb6 et sur visual basic 2010 express:
Exercice:
en utilisant la commande InputBox saisr une valeur i de type integer et puis effectue les test
suivant :
? i<0
? 0<= i <= 10
? 11<= i <= 20
? i>20

En utilisant une structure if et une structure select case.
Affiche pour chaque cas un message indiquant le resultat
Solution
voici le code:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles Button1.Click 
 Dim a As Integer 
 a = InputBox("Test value", "Using select case") 
 Select Case a 
 Case Is < 0 
 MessageBox.Show("a<0") 
 
 Case Is <= 10 
 MessageBox.Show("a between 0 and 10") 
 
 Case Is <= 20 
 MessageBox.Show("a between 11 and 20") 
 
 Case Is > 20 
 MessageBox.Show("a plus grand que 20") 
 End Select 

l'exercice marche parfaitement sur visual basic 2010 express par contre sur Visual basic 6 affiche un message 'erreur exécution 424 un objet est requis '?
merci