vb.net字串 Like的用法，将大小写不分来比照-线上等

语法如下

dim str1 as string="AAABBBCCC"

dim str2 as string="aaabbbccc"

If str1 like "* "AAA"*" then
msgbox("试验ok")
End if

str1可以ok，但是str2用AAA去比照，就不行了
请问如何实现，用AAA时，小写或是大写的字串都可以比照oko

比照的时候把要比照的文字列转大写再比
If str1.ToUpper() like "* "AAA"*" then
msgbox("试验ok")
End if
如果比较对象不是AAA这样都是大写的，就把比较对象也转成大写的再比照