この文字は何回、使われているのだ？
この文字列の中で、何回、この文字が使われているのか？を調べる場合は下記を参照してほしい。
例)私は高校、大学を卒業して教師として中学校で教えています。学校もなかなか楽しいですよ。
調べたい個数→学校
Dim mojiretu As String = ""
Dim kensaku As String = ""
Dim mojilength As Integer = 0
Dim kaisuu As Integer = 0
mojiretu = "私は高校、大学を卒業して教師として中学校で教えています。学校もなかなか楽しいですよ。"
kensaku = "学校"
mojilength = mojiretu.Length
For i = 0 To mojilength - 2
If mojiretu.Substring(i, 2) = "学校" Then
kaisuu = kaisuu + 1
End If
Next
MessageBox.Show(kaisuu & "回、使われました")