Function str2asc(strstr) 
             str2asc = hex(asc(strstr)) 
             End Function 

             Function asc2str(ascasc) 
             asc2str = chr(ascasc) 
             End Function