Função para contar a quantidade caracteres na String

' Verifica a qtuantidade que uma string tem de um caractere
Function CaracteresNaString(Str,Caracter)
Dim Contador, i, QtdeChar

   Contador = 0
   for i = 1 to Len(Str)
      Contador = Contador + 1
      'Se existir o caractere na string adiciona 1 ao contador de caracteres
      if mid(Str,Contador,1) = Caracter then
       QtdeChar = QtdeChar + 1
      end if
   next

   CaracteresNaString = QtdeChar
  
End Function

Esta matéria foi postada originalmente no ASP4Developers por Rafael "M4yers" Rossi (site), que na época era "...". Hoje, vai saber...