Below Function can be used to count the number of occurrences of a character in a string:
Code:
Public Function CountCharInString(OriginalStr As String, CharToBeCount As String) As Long

    If UBound(Split(OriginalStr, CharToBeCount)) = -1 Then CountCharInString = 0 Else CountCharInString = UBound(Split(OriginalStr, CharToBeCount))

End Function
It can be used in a subroutine in the below way:
Code:
Sub FindCount()

    Msgbox CountCharInString("ABCABCA", "A")

End Sub