From Characters To Unicode

Can you post a sample workbook containing some representative text and the results you want to see (based on the sample)?

Hi,

Welcome to the forum

How do you intend to have the formula output the result for a word?
Do you want the word broken up into 1 character per column/row and then the formula to evaluate each character?

Please clarify your end result.
TX

Function NS(sInp As String)
    Dim asChr() As String
    Dim iChr As Long
    
    ReDim asChr(1 To Len(sInp))
    For iChr = 1 To Len(sInp)
        asChr(iChr) = AscW(Mid(sInp, iChr, 1))
    Next iChr
    
    NS = Join(asChr, "-")
End Function

	A	B	C
1	Input	Output
2	e	101	B2: =NS(A2)
3	d	100
4	1	49
5	-	45
6	(	40
7	\	92
8	ed1-(\	101-100-49-45-40-92
9	d1-	100-49-45
10	\dee	92-100-101-101
11	e1(d	101-49-40-100
12	(\d	40-92-100
13	ellipsis …	101-108-108-105-112-115-105-115-32-8230

Function SN(sInp As String) As String
    Dim asInp()   As String
    Dim iChr      As Long

    
    asInp = Split(sInp, "-")
    For iChr = 0 To UBound(asInp)
        SN = SN & ChrW$(asInp(iChr))
    Next iChr
End Function

	A	B	C	D
1	Input	Output
2	e	101	e	C2: =SN(B2)
3	d	100	d
4	1	49	1
5	-	45	-
6	(	40	(
7	\	92	\
8	ed1-(\	101-100-49-45-40-92	ed1-(\
9	d1-	100-49-45	d1-
10	\dee	92-100-101-101	\dee
11	e1(d	101-49-40-100	e1(d
12	(\d	40-92-100	(\d
13	ellipsis …	101-108-108-105-112-115-105-115-32-8230	ellipsis …

You're welcome.