QTP - UFT - How to count number of occurances of a string in a statement

Link to Mandatory QTP /UFT Interview Questions to read before Interview

We can use  regular expression.

Syntax
inputstring = "This String has multiple statements and each statement has multiple occurrences"
Set o1 = new RegExp
o1.pattern = "statement"
o1.ignorecase = true
o1.global = true
Set r1 = o1.execute(inputstring)
msgbox r1.count

Link to Mandatory QTP /UFT Interview Questions to read before Interview