Это интересно

Код на VBA   Function СЧЁТСИМВЛ(ТЕКСТ As String , СИМВОЛ As String ) As Long      Dim i As Long      Dim S As Long          S = 0   ...

 

                                  ValiDrive