Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Shared Function CountChars(ByVal sString As String, ByVal sSearch As String) As Integer
Dim i As Integer = sString.Length - sString.Replace(sSearch, "").Length
Return i
End Function
Dim s1 As String = "Aaa Ha"
Dim r As RegularExpressions.Regex = _
New RegularExpressions.Regex("a", RegularExpressions.RegexOptions.IgnoreCase)
Dim matches As Integer = r.Matches(s1).Count
MessageBox.Show(matches) 'should display 4