在excel2003的visualbasic编辑器中怎么根据两个条件调用某两个数据写到一个单元格里？

有A1单元格的值为85，A2单元格的值为50；B2单元格的值为“级格”和“不级格”两种，我要通过visual basic编辑器写个成程序，使C1单元格的值显示为，当B2单元格的值为“级格”时，85；当B2单元格的值为“不级格”时，50。求高手帮个忙！

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B2]) Is Nothing Then
        If [B2] = "及格" Then
            [C1] = 85
        ElseIf [B2] = "不及格" Then
            [C1] = 50
        End If
    End If
End Sub 用公式不是更好？  =IF(B2="及格",85,50)