como voce usaria esta função?
Chamaria ela por onde?
faça uma função com um parametro assim
public Function teste( intKeyAscii as integer) as interger
......
seu código
Teste= intKeyAscii
end function
Chamando ela assim
Private Sub Text_KeyPress(KeyAscii As Integer)
KeyAscii = teste(KeyAscii)
End Sub