'========================================

Function zStr_Count(sInput, sSrch)

	Dim iCount, sTemp

	iCount = 0
	sTemp  = sInput

	While inStr(sTemp,sSrch) > 0

		iCount = iCount + 1

		sTemp = Replace(sTemp, sSrch, "", 1, 1)

	Wend

	zStr_Count = iCount

End Function

'========================================