如何在VBA中使用多个case语句

Select Case 变量或表达式
    Case 值1
        '执行某些操作
    Case 值2
        '执行某些操作
    Case 值3
        '执行某些操作
    Case Else
        '执行某些操作
End Select

Sub MultipleCase()
    Dim score As Integer
    score = 85
    
    Select Case score
        Case 90 To 100
            MsgBox "优秀"
        Case 80 To 89
            MsgBox "良好"
        Case 70 To 79
            MsgBox "中等"
        Case 60 To 69
            MsgBox "及格"
        Case Else
            MsgBox "不及格"
    End Select
End Sub