Function str2asc(strstr) 
	str2asc = hex(asc(strstr)) 
End Function 
Function asc2str(ascasc) 
	asc2str = chr(ascasc) 
End Function