Dim str As String = "what is your name.my name is liu"TextBox1.Text = CStr((str.Split("s").Length - 1))
