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

[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