Evaluate string to join 1D array

[YasserKhalil]

I have the following UDF that generates a string

Sub Test_ConvertToUnicode_UDF()
    Dim s
    s = ConvertToUnicode("الحديث")
    Debug.Print Evaluate("""" & s & """")
End Sub

Function ConvertToUnicode(ByVal sInput As String)
    Dim s As String, i As Long
    For i = 1 To Len(sInput)
        s = s & "Chr(" & Asc(Mid(sInput, i, 1)) & ")" & IIf(i <> Len(sInput), ", ", Empty)
    Next i
    ConvertToUnicode = "Join(Array(" & s & "), Empty)"
End Function

How can I evaluate the string output so as to be able to have the same result as if I typed it as command line? I mean the string used "الحديث" is converted by the UDF to that string

Join(Array(Chr(199), Chr(225), Chr(205), Chr(207), Chr(237), Chr(203)), Empty)

How can I evaluate the line to be able to use like that

Debug.Print Join(Array(Chr(199), Chr(225), Chr(205), Chr(207), Chr(237), Chr(203)), Empty)

Posted here too

Evaluate string to join 1D array

I have the following UDF that generates a string Sub Test_ConvertToUnicode_UDF() Dim s s = ConvertToUnicode("الحديث") Debug.Print Evaluate("""" & s &am...

stackoverflow.com

Evaluate string to join 1D array - Eileen's Lounge

 

[Fluff]

I've no idea what you are asking, but when using unicode characters you would need to use ChrW & AscW

 

[YasserKhalil]

Simply this is string (the output of UDF)

Join(Array(Chr(199), Chr(225), Chr(205), Chr(207), Chr(237), Chr(203)), Empty)

I need to run this string as command line

 

[Fluff]

AFAIK You can't run a string as a command.

 

[YasserKhalil]

Thanks a lot. I have made use of this link

How to run a string as a command in VBA

I have this simple VBA code below, and I don't know why is not working. Sub Run() test = "MsgBox" & """" & "Job Done!" & """" Application.Run test End Sub What I want to ...

stackoverflow.com

 

[Fluff]

Glad you sorted it & thanks for the feedback.