こんにちは。

私もときどきもっといい方法がないか気になるんですよね。

私がよく使う方法は魔界の仮面弁士さんの案２とほぼ同じです。便利なメソッドでもあればいいんですが。

    

Dim target As String = "ABCDE"

Dim temp As String = TextBox1.Text.Replace(target, "")



Dim count As Integer = (Len(TextBox1.Text) - Len(temp)) \ Len(target)



Label1.Text = count & "個あります。"

あと、細かいですが表現が気になったので
>③その後 Hensu の内容をLabel1に代入し、表示させる。
このような表現は普通はしないですね。
Hensuの内容をLabel1に表示させる。とか、
Hensuの内容をLabel1のTextプロパティに代入し、表示させる。なら
特に違和感はないです。