Function Bonus(performance, salary)
    Select Case performance
        Case  1 
            Bonus = salary *  0 . 1 
        Case  2 ,  3 
            Bonus = salary *  0 . 09 
        Case  4  To  6 
            Bonus = salary *  0 . 07 
        Case Is >  8 
            Bonus =  100 
        Case Else
            Bonus =  0 
    End Select
End Function