Public Function Count(ByRef vsInput As String, ByRef vsPattern As String, Optional ByVal veCompare As VbCompareMethod = vbBinaryCompare) As Integer
Dim i As Long
    i = InStr(1, vsInput, vsPattern, veCompare)
    Do While i
        Count = Count + 1
        i = InStr(i + 1, vsInput, vsPattern, veCompare)
    Loop
End Function

<?php
$sString = 'Ceci est un test, nous allons compter combien de fois le mot test apparait dans ceci est un test';
$sOcc = 'test';
$iCpt = substr_count ($sString, $sOcc);
echo $iCpt;
?>

Res est un entier
Res = ChaneOccurrence("toto titi tito", "to")   // Renvoie 3

   { compter les occurences d'une chaines dans une autre }
     
       function CountString(const S, StrToCount : string) : integer;
      var N : integer;
      begin
        result := 0;
        N      := Posex(StrToCount,S,1);
        while N <> 0 do begin
          inc(result);
          N := Posex(StrToCount,S,N+Length(StrToCount));
        end;
      end;
      
            
 
      { compter les occurences d'un caractere dans une chaine }
     
      function CountChar(const S : string; const CharToCount : char) : integer;
      var N : integer;
      begin
        result := 0;
        N      := Posex(CharToCount,S,1);
        while N <> 0 do begin
          inc(result);
          N := Posex(CharToCount,S,N+1);
        end;
      end;
    
   

  
  I := CountString('Blablabla bla blabla', 'la');

renvois : 6
   

// Solution assez élégante qui utilise les expressions régulières
string txt = "un test, unun test, un apparaît plun de fois dans ce test (plus d'une fois, 6 fois!";
string pattern = "un";
int count = Regex.Matches(txt, pattern).Count; // count = 6

Public Function Count(ByVal sString As String, ByVal sFind As String) As Integer
 Count = UBound(Split(sString, sFind))+1
End Function

Option Explicit

Public Function NbInStr(ByVal MyStart As Long, ByVal MyWord As String, ByVal MyString As String) As Long
    If MyStart < 1 Or LenB(MyWord) < 2 Or LenB(MyString) < 2 Then Exit Function
    
Dim i As Long, MyCounter As Long

    MyCounter = 0
    For i = MyStart * 2 - 1 To LenB(MyString) Step 2
        If MidB(MyString, i, LenB(MyWord)) = MyWord Then MyCounter = MyCounter + 1
    Next i
    
    NbInStr = MyCounter
End Function

Sub Exemple_Utilisation()
    Debug.Print NbInStr(1, "mot", "Compte le nombre de mot 'mot' dans cette chaine")
    ' retournera 2
End Sub