Function CountOccurrences(ByVal StringToSearch As String, ByVal StringToFind As String) As Integer
        Dim FoundPos As Integer
        Dim TempPos As Integer
        Dim Count As Integer
        FoundPos = 1
        Do
            FoundPos = InStr(FoundPos, StringToSearch, StringToFind)
            TempPos = FoundPos
            If FoundPos > 0 Then
                Count += Count
                FoundPos += Len(StringToFind)
            End If
        Loop Until FoundPos = 0
        Return Count
    End Function