Problemas com UTF-8 e criptografia

Tenho uma função em meu site para salvar as senhas dos clientes criptografadas. Tudo sempre funcionou corretamente, mas estou fazendo alterações em todo o site e aproveitei para passar tudo para UTF-8 para corrigir alguns erros de caracteres que tinha.

Só que minha função de criptografia parou de funcionar. Segue:

Public Function Cript(texto)
Dim vCript
texto = (texto)
response.write texto
If texto <> "" Then
vCript = ""
chave = "000"
For i = 1 To Len(texto)
If vCript = "" Or i > Len(chave) Then X = 1 Else X = X + 1
vCript = vCript & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid(chave, X, 1)))
Next
Cript = vCript
Else
Cript = ""
End If

End Function

Esse é o resultado que ela imprime, independente do valor passado:

����

Alguém sabe o que posso fazer?

Muito obrigado.