How can I write countif function myself in VBA?

Question

I working on an Assignment and we are supposed to count the number of the Same alphabets in a range.

out would look something like this,

Rating Count

A-----