ExcelVBAで文字列内の文字をカウントする

簡単な関数があるわけじゃない

シンプルなのは、指定文字を削除した文字列をつくって、
その文字列と元の文字列の文字数の差分取る方法