Convert ASCII code back to text with StrConv + vbUnicode (VBA)

[stephfan]

Dear Community,

I would like to convert the number sequence (ASCII) 115 116 101 112 104 102 97 110 back to text (one word) with StrConv + vbUnicode. Unfortunately, I don't know how to use the For-Next loop in this case.

I converted the text in the number sequence as follows (found with Google) - but I just can't get it back to text. Can someone please help me or give me some tips. Many thanks and best regards Stephfan

Sub zuASCII()
Dim str1 As String, str2 As String
Dim i As Integer
Dim x() As Byte
str1 = Cells(1, 1).Value                 '(in dieser Zelle steht der Text)
x = StrConv(str1, vbFromUnicode)
For i = 0 To UBound(x)
  str2 = str2 & " " & x(i)
Next i
Cells(1, 2).Value = Trim(str2)
End Sub

[arnelgp]

' arnelgp
Sub zuASCII()
    Dim str1 As String, str2 As String
    Dim i As Integer
    Dim x() As Byte
    str1 = Cells(1, 1).Value                 '(in dieser Zelle steht der Text)
    ' assign str1 to x
    x = str1
    ' now X will contain 115,0,116,0,101,0...(ascii seperated with "0")
    '
    ' loop through each element of byte array
    For i = 0 To UBound(x) Step 2
        Debug.Print x(i)
    Next
    '
    ' convert the array of byte again to string
    str2 = x
    Debug.Print str2
End Sub

note: the Loop (For i = 0...) is not necessary, it is only there to show the values of x (Array of bytes).

[Paul_Hossler]

Another way

Option Explicit

Sub Test()
    Dim sInput As String, sOutput As String
    Dim i As Long
    Dim arySplitInput As Variant
    
    sInput = ActiveSheet.Range("A1")        '   115 116 101 112 104 102 97 110


    arySplitInput = Split(sInput, " ")
    
    For i = LBound(arySplitInput) To UBound(arySplitInput)
        sOutput = sOutput & ChrW(arySplitInput(i))
    Next i
    
    sOutput = StrConv(sOutput, vbUnicode)
    
    Debug.Print sOutput
End Sub

[stephfan]

thank you very much for your help :-)