Rating

Hello everyone!
I am trying to do some rating in excel.
This is what I am trying to do.
1- excellent
2- good
3- average
4- fair
5- poor
I have the in a validation all of the words as option; but I want once they pick the words, in the cell beside will come up the number instead, and that will be the rating.
This is my coding

Private Sub change()

With Range("B2")
    If .Value = "GOOD" Then
    Range("C2").Value = "1"
    Else
    End If
End With

End Sub

Is there a better way to do that? Could anyone else give me some ideas?

Thanks!