Проблема с программой visual basic 6.0

    [I]Private  Sub cmdInput_Click()    [/I]                         вот это строка выделена жолтым
    Dim ball    As  Single  'балл оценки      
    Dim rate    As  String  'рейтинг по шкале A - F       
    Dim ans As  Integer 'код нажатой клавиши MsgBox        
    ball = -1   'инициализируем начальное значение для организации ввода      
    'цикл работает, пока введенное значение не попадет        
    'в заданный диапазон           
    Do While ball < 0 Or ball > 100     
        ball = Val(InputBox("Введите балл студента (от 0 до 100)", "Ввод значения")) 
    Loop                        
    'анализируем введенное значение     
    'и присваиваем  рейтинг          
    Select Case ball            
        Case 100                
            rate =  "A+"            
        Case Is >=  90          
            rate =  "A"         
        Case Is >=  80          
            rate =  "B"         
        Case Is >=  70          
            rate =  "C"         
        Case Is >=  60          
            rate =  "D"         
        Case Else               
            rate =  "F"         
    End Select              
    'выводим значение балла и рейтинг в графическое окно        
    ans = MsgBox("Ваш балл " & ball & "  Рейтинг = " & rate, vbExclamation,   а при выбивании ошибки выделяется это строка
    "Сообщение")                   
 
 
'дополнительная информация
 
'выводим код нажатой клавиши MsgBox в окно Immediate Debug.Print "Код нажатой клавиши MsgBox = "; ans
 
End Sub

 ans = MsgBox("Ваш балл " & ball & "  Рейтинг = " & rate, vbExclamation, "Сообщение")