Odstranění české diakritiky z textu

<%
Function ToASCII(ByVal Text)
Const CZY = "áčďěéëílľnóöřšťůúüýž"
Const CZN = "acdeeeillnoorstuuuyz"
Dim IFor I = 1 To Len(CZY)
Text = Replace(Text, Mid(CZY, I, 1), Mid(CZN, I, 1))
Text = Replace(Text, UCase(Mid(CZY, I, 1)), UCase(Mid(CZN, I, 1)))
NextToASCII = Text
End Function'

Ukazkovy text
Dim strTextstrText = "Java Script Library je nejlepší web pro vývojáre!
Urcite si uložte http://java.tatousek.cz do Vašich oblíbených položek!
" & vbCrLf
%>