VBA el número de apariciones de una cadena de caracteres en otra cadena de caracteres

Proporciona un método general para obtener el número de veces que aparece una subcadena en una cadena principal: '?####################### ######################

'?[Descripción de la función]?Obtiene el número de veces que aparece una subcadena en la cadena principal <. /p>

'?[Lista de parámetros]?1.?strCadena principal principal;

'2.?strSubcadena secundaria.

'?[Tipo de retorno]?Long.

'?#################################### ##### ####

¿Función?Pública?GetRepeatedTimes(ByVal?strParent?As?String,?_ ByVal?strChild?As?String)?As?Long

Dim?lngLenOfChild? As?Long

lngLenOfChild?=?Len(strChild)

Si?lngLenOfChild?Then

GetRepeatedTimes?=?(Len(strParent )?-?Len (Replace(strParent,?strChild,?vbNullString)))?/?lngLenOfChild

End?If

End?Function

Llamar a demostración: Sub?Demo ()

MsgBox?"Substring?""56""?El número de apariciones en la cadena principal?""1325659568""?"amp;?_

CStr(GetRepeatedTimes ("1325659568",?"56")),?vbOKOnly,?"Demo"

End?Sub