Busca em Texto

Pessoal, quem puder me ajudar ficarei grato. Estou precisanso fazer uma busca em um texto, consegui um script pronto mas ele está fazendo diferenciação entre maiúscula e minuscula, tem como fazer a busca ignorar e buscar qualquer palavra parecida ou igual ao digitado no text. Abaixo segue o códigoPrivate Sub Command1_Click()buscaEnd SubSub busca(Optional ByVal bs As Integer)Dim a As IntegerDim b As Stringb = Text2.TextIf Len(b) Thena = InStr(bs + 1, Text1.Text, b)If a > 0 ThenText1.SelStart = a - 1 Text1.SelLength = Len(b) Text1.SetFocus Else MsgBox "No se encuentra: " & Chr$(13) & b, vbDefaultButton1, """" End IfEnd IfEnd SubPrivate Sub Command2_Click()busca (Text1.SelStart + 1)End SubSe tiver jeito ficarei grato, esse script dá certinho, só precisava ignorar maiúscula.