جملة من Textbox

السلام عليكم ورحمة الله وبركاته

هذا هو الكود المطلوب إن شاء الله

	Function GetSubstringCount(ByVal strToSearch, ByVal strToLookFor, ByVal bolCaseSensative)
		If bolCaseSensative Then
			GetSubstringCount = UBound(split(strToSearch, strToLookFor))
		Else
			GetSubstringCount = UBound(split(UCase(strToSearch), UCase(strToLookFor)))
		End If
	End Function

	Dim str, strSubstring
	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		str = "Actions speaks louder than words" ' You can replace this wtring  with a textbox
		Response.Write(GetSubstringCount(str, "s", False))
	End Sub

لا تنسانا من صالح دعائك في ظهر الغيب

بالتوفيق

بارك الله فيك والله يوفقك

انا مع اني مش فاهم الكود الا اني راح اطبقه وبعدين اذا ما فهمته بسالك بارك الله فيك

شكرا جزيلا

شكرا الك الكود رائع

بس المتغير strSubstring

ما اله داعي

ولو بدي الناتج يكون في textbox شو اعمل