Qtp Script to find the number of occurences of a char in a string

Qtp Script to find the number of occurences of a char in a string

str="hellllllllo all"

counter=0

For i=1 to len(str)

char=mid(str,i,1)

If char="l" Then

counter=counter+1

End If

Next

Msgbox counter