Public Function CountChar(ByVal sText As String, _
  ByVal sChar As String) As Long
 
  Dim nPos As Long
  Dim nCount As Long
 
  Do
    nPos = InStr(nPos + 1, sText, sChar)
    If nPos > 0 Then nCount = nCount + 1
  Loop Until nPos = 0
 
  CountChar = nCount
End Function

Dim nCount As Long
nCount = CountChar(sString, "a")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de