John, do you have a function to change the pairs back to text?

I had this question after viewing I need to convert a string into a string of decimals.
CRB1609Access DeveloperAsked:
Who is Participating?
Ferruccio AccalaiConnect With a Mentor Senior developer, analyst and customer assistance Commented:
If you have used his TextToPair function it could by done as follows:
Public Function PairToText(InputString As String) As String
Dim tmpOutput As String
Dim strLen As Integer
Dim counter As Integer
strLen = Len(InputString)
For counter = 1 To strLen Step 2
tmpOutput = tmpOutput & CHR(CInt(Mid(InputString, counter, 2)) + 50)
Debug.Print tmpOutput
PairToText = tmpOutput
End Function

Open in new window

Note that I've used 50 as value to add but if you used 30 as suggested in that q. you must change the value here too
tmpOutput = tmpOutput & CHR(CInt(Mid(InputString, counter, 2)) + 30)<---
John TsioumprisConnect With a Mentor Software & Systems EngineerCommented:
Just follow the code above...but i would insist on the custom mappings...more secure and better to handle...
CRB1609Access DeveloperAuthor Commented:
Thank you both, very much.

All Courses

From novice to tech pro — start learning today.