Private Sub Command1_Click()  

    Dim score As Integer  

       score = 90  

       If score > 80  Then 

           r = 5  

      ElseIf score > 60 Then  

            r = 3  

     Else  

            r = 1  

     End If  

     Print r 

 End Sub