Public Function ToLowerASCII(ByVal s As String) As String
Return New String( _
s.Normalize(System.Text.NormalizationForm.FormD).ToCharArray() _
.Where(Function(c As Char) System.Globalization.CharUnicodeInfo.GetUnicodeCategory(c) <> System.Globalization.UnicodeCategory.NonSpacingMark) _
.ToArray())
End Function