v_File = "<путь к файлу>"

Set v_FSO = CreateObject("Scripting.FileSystemObject")
  Set v_RegExp = CreateObject("VBScript.RegExp")

Set v_FSO = Nothing
  Set v_RegExp = Nothing

'nasGetCharCount(strText, strFindChar)
'где strText - текст, в котором ведется поиск;
'strFindChar - искомый символ
Public Function nasGetCharCount( _
       ByVal strText As String, _
       Optional strFindChar As String = " ") _
       As Long
  Dim gccArray() As String
  If strText = vbNullString Then  
    nasGetCharCount =  0 : Exit Function
  End If
  gccArray = Split(strText, strFindChar)
  nasGetCharCount = UBound(gccArray)
End Function