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

[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).