Posiblemente no sea exacto, pero a lo mejor te sirve.
Te he preparado esta funcion.
Código:
Function mf(ascii)
for i = 1 to len(ascii)
temp=temp & mid(ascii,i,1)
if clng(temp) >= 32 and clng(temp) <= 255 then
resultado = resultado & chr(temp)
temp = ""
end if
next
mf = resultado
end function
Para llamarla pasale el numerajo como string.
<%= mf("7211110897") %>
Te devuelve "Hola"
Espero que te sirva.