title: Removing diachritics accents from words
body: <p>Please help me to change this code to accept a parameter in the command line</p>
  
  <p>Function to remove accents - diachritics.</p>
  
  <pre><code>Function EliminarAcentos(texto)
  
      Dim i, s1, s2
      s1 = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
      s2 = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
      If Len(texto) &lt;&gt; 0 Then
          For i = 1 To Len(s1)
              texto = Replace(texto, Mid(s1,i,1), Mid(s2,i,1))
          Next
      End If
  
      EliminarAcentos = texto
  
  End Function
  </code></pre>
  
  <p>I need to run the script like this:</p>
  
  <pre><code>&gt;remove_accents Dídímênsô
  Didimenso
  </code></pre>