Aproveitando a dica passada a um colega de um fórum, segue uma função para contar a quantidade de ocorrências de um carater dentro de uma String no VBA:

1
2
3
4
5
6
7
8
9

Public Function ContaCaracteresNaString(ByVal texto As String, ByVal caracter As String) As Long
     Dim x As Variant
     x = Split(texto, caracter)
     ContaCaracteresNaString = UBound(x)
End Function
 
Public Sub Teste()
     MsgBox ContaCaracteresNaString("janeiro|fevereiro|março|abril|", "|")
End Sub

Os dados são um exemplo para testar a função. É bom lembrar que o código utiliza a função Split, não disponível em algumas versões do VBA.

Para uso da função Split nesses casos, existe um exemplo no site da própria Microsoft cujo link será colocado em breve neste blog.

Bom proveito!

Tomás Vásquez