Conte substrings com a função Replace

Voce pode usar a função Replace para simplificar (e até
otimizar) seu código. Por exemplo, a fim de contar o
número de ocorrências de uma substring dentro de uma
string, geralmente se precisa de um loop baseado na
função InStr:

Dim i As Long, count As Long
i = InStr(source, search)
Do While i
    count = count + 1
    i = InStr(i + 1, source, search)
Loop

Aqui vai um código em uma linha que faz
exatamente o mesmo. O truque esta em trocar
cada substring com outra string que é um
caracter maior, e então determinar a diferença
entre a string obtida e a original. Este
número é igual ao número de substituições
feitas, e portanto igual ao número de
substituições encontradas. (Note que o
código é mais conciso que o anterior, porém
um pouco mais lento que a solução anterior).

count = Len(Replace(Source, Search, Search & "*")) - Len(Source)

Esta matéria foi postada originalmente no ASP4Developers por Valmir Cinquini (site), que na época era "Analista/Programador C#, VB.Net, ASP, VB, Javascript e T-SQL

www.cinquini.com.br/vcinquini>". Hoje, vai saber...