>変数a = InStr(TextBox1.Text, 変数X)
>変数b = InStr(TextBox1.Text, 変数Y)

Dim s As String = TextBox1.Text.ToUpper()
変数a = InStr(s, 変数X)
変数b = InStr(s, 変数Y)

とでもして大文字に統一してから検索ればいい。
変数X、変数Yに入る値が大文字とは限らないなら、こっちも大文字に揃えておくこと。

でも、この場合ならRegexクラスを使って正規表現で抽出した方がいいかもね。