Como recuperar o índice de um caractere com a função Substring independentemente de seu case em uma frase

Como recuperar o índice de um caractere com a função Substring independentemente de seu case em uma frase

O método IndexOf da classe String é case-sensitive. Existem 2 maneiras possíveis de contornar este problema:

1. Converter o case da frase inteira e da substring para qualquer outro case e, então, achar o índice do caracter em particular.

 Dim strPrincipal As String = "A .net Magazine é bem informativa."

    Dim strSecundaria As String = "magazine"

    ' A linha abaixo retornará -1 quando o esperado é 7.

    Dim i As Integer = strPrincipal.IndexOf(strSecundaria)

    ' A linha abaixo retornará o índice correto

    Dim j As Integer =   

    strPrincipal.ToLower().IndexOf(strSecundaria.ToLower())

2. Utilizar o método substring da classe CompareInfo do namespace System.Globalization. Esta é uma maneira mais profissional e elegante de resolver o problema.

    Dim strPrincipal As String = "A .net Magazine é bem informativa."

    Dim strSecundaria As String = "magazine"

    ' Criamos um objeto da classe CompareInfo para uma cultura neutra  

    ou uma cultura case-insensitive

    Dim Compare As CompareInfo = _ 

    CultureInfo.InvariantCulture.CompareInfo

 Dim i As Integer = Compare.IndexOf(strPrincipal, strSecundaria, _