01. Excellent Result

Sub LiveDemo()
    Dim grade As Double
    grade = Range("A1")

    If grade >= 5.5 Then
        Debug.Print "Excellent"
    Else
        Debug.Print "Poor"
    End If
End Sub