Convert Ascii to string

[sharky12345]

I'm using this to convert a string to ascii;

Public Function asciien(s As String) As String' Returns the string to its respective ascii numbers
   Dim i As Integer


   For i = 1 To Len(s)
      asciien = asciien & CStr(Asc(Mid(s, i, 1)))
   Next i


End Function

Can someone show me how to convert it back to string please?

 

[shg]

[Table="width:, class:grid"][tr][td="bgcolor:#C0C0C0"][/td][td="bgcolor:#C0C0C0"]

A​

[/td][td="bgcolor:#C0C0C0"]

B​

[/td][/tr][tr][td="bgcolor:#C0C0C0"]

1​

[/td][td]Now is the time for all good men …[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

2​

[/td][td="bgcolor:#E5E5E5"]078111119032105115032116104101032116105109101032102111114032097108108032103111111100032109101110032133[/td][td]A2: =Str2AscDec(A1)[/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

3​

[/td][td="bgcolor:#E5E5E5"]Now is the time for all good men …[/td][td]A3: =AscDec2Str(A2)[/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

4​

[/td][td][/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

5​

[/td][td][/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

6​

[/td][td]Now is the time for all good men …[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

7​

[/td][td="bgcolor:#E5E5E5"]4E6F77206973207468652074696D6520666F7220616C6C20676F6F64206D656E2085[/td][td]A7: =Str2AscHex(A6)[/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

8​

[/td][td="bgcolor:#E5E5E5"]Now is the time for all good men …[/td][td]A8: =AscHex2Str(A7)[/td][/tr]
[/table]

Function Str2AscHex(sInp As String) As String
    Dim i           As Long

    For i = 1& To Len(sInp)
        Str2AscHex = Str2AscHex & Right$("0" & Hex$(Asc(Mid$(sInp, i, 1&))), 2&)
    Next i
End Function

Function AscHex2Str(sInp As String) As String
    Dim i           As Long

    For i = 1& To Len(sInp) Step 2&
        AscHex2Str = AscHex2Str & Chr$("&H" & Mid$(sInp, i, 2&))
    Next i
End Function

Function Str2AscDec(sInp As String) As String
    Dim i           As Long

    For i = 1& To Len(sInp)
        Str2AscDec = Str2AscDec & Right$("00" & Asc(Mid$(sInp, i, 1&)), 3&)
    Next i
End Function

Function AscDec2Str(sInp As String) As String
    Dim i           As Long

    For i = 1& To Len(sInp) Step 3&
        AscDec2Str = AscDec2Str & Chr$(Mid$(sInp, i, 3&))
    Next i
End Function

 

[sharky12345]

Perfect - thanks!!

 

[shg]

You're welcome.