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