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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de