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