VBA Count Number Of Specific Strings in a Cell

Hello,
I am trying to get a VBA script working that will count the number of times a string appears in a cell.
For the time being I am just working with one cell.
I can get it working within the worksheet itself with a formula but cannot get it working within a VBA script, it has an issue with the function "SUBSTITUTE", I may be wrong but I'm assuming the function is only a Worksheet function and not a VBA function.
I have even tried the 'Application.WorksheetFunction' within the VBA script but still nothing. I have looked at several examples off the net and neither state that the word 'SUBSTITUE' needs to be defined.

I have attached a copy of my test sheet for you to take a look at. The code I am using is;

Please Login or Register  to view this content.

Thank you.

Something like

Please Login or Register  to view this content.

Thank to all, now got it sorted.