Rendi prima tutta la stringa in minuscolo:
codice:
arrFile(y) = arrFile(y).ToLower.Replace("%programfiles%", Environment.GetEnvironmentVariable("ProgramFiles"))