title: Function to make user input case insensitive
body: <p>I have the following code</p>
  <pre><code>Private Function FiltraSexo(ByVal strTexto As String) As String
  
  strTexto = Replace(strTexto, &quot;M&quot;, &quot;H&quot;)
  strTexto = Replace(strTexto, &quot;F&quot;, &quot;M&quot;)
  strTexto = Replace(strTexto, &quot;Hombre&quot;, &quot;H&quot;)
  strTexto = Replace(strTexto, &quot;Mujer&quot;, &quot;M&quot;)
  strTexto = Replace(strTexto, &quot;Femenino&quot;, &quot;M&quot;)
  strTexto = Replace(strTexto, &quot;Masculino&quot;, &quot;H&quot;)
  strTexto = Replace(strTexto, &quot;hombre&quot;, &quot;H&quot;)
  strTexto = Replace(strTexto, &quot;mujer&quot;, &quot;M&quot;)
  strTexto = Replace(strTexto, &quot;femenino&quot;, &quot;M&quot;)
  strTexto = Replace(strTexto, &quot;masculino&quot;, &quot;H&quot;)
  
  CURPFiltraSexo = UCase(strTexto)
  
  End Function
  </code></pre>
  <p>This is a function that works for another function that the user can give the data or select it from a cell. If the user types any of the words in the function it will replace it with an M or H.</p>
  <p>If the user has a typo like HOmbre instead of Hombre it won't change the value.</p>
  <p>Is there a way to be case insensitive for what the user writes?</p>