This document was uploaded by user and they confirmed that they have the permission to share
it. If you are author or own the copyright of this book, please report to us by using this DMCA
report form. Report DMCA
Overview
Download & View String To Ascii Codes-ascii Codes To String.docx as PDF for free.
Function AscEncode(str) Dim i Dim sAscii sAscii = "" For i = 1 To Len(str) sAscii = sAscii + CStr(Hex(Asc(Mid(str, i, 1)))) Next AscEncode = sAscii End Function
Function ChrEncode(str) Dim i Dim sStr sStr = "" For i = 1 To Len(str) Step 2 sStr = sStr + Chr(CLng("&H" & Mid(str, i, 2))) Next ChrEncode = sStr End Function