大文字、小文字の区別をFunctionに追加するには？ (ID:91500)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 txt2のなかにtxt1に入力した文字がいくつあるか調べるFunctionです。 これに大文字、小文字の区別をしないでも検索する機能を追加したいのですが、どうしたら良いのでしょう？下記のコードは、大文字、小文字の区別をして値を返します。 Public Function WordCount (txt1 as string, txt2 as string) as long Dim i As Integer = 0 Dim j As Integer = 0 Dim k As Integer = txt1.Length Do i = txt2.IndexOf(txt1, i) If i >= 0 Then i = i + k j = j + 1 End If Loop Until i < 0 Return j