aString := 'Now is the time for all good men to come to the aid of their blah blah blah'.

count := 0.

aString do: [:letter | letter asLowercase == $a ifTrue: [count := count + 1.]] .

count "--> 5"