Busca em Texto

[Flyfree 0]

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.

[MadPatryk 0]

po kra, poe tudo pra minusculo e faz o teu inStr... ;)

[luiz humberto 0]

Antes de realizar a comparação, utilize a função UCase em ambas as strings. Ou então, utilize a função StrComp para relizar a comparação.

[Flyfree 0]

Vou tentar, valeu pelas dicas. Se não conseguir volto a perguntar, mas acho que a comparação vai dar certo.