VBA CONVERT STRING TO ASCW, CONVERT ASCW TO CHRW

VBA CONVERT STRING TO ASCW, CONVERT ASCW TO CHRW

Function AscW_From_Char(DLieu As String) As String
    Dim Temp As String
    Dim i As Integer
    For i = 1 To Len(DLieu)
        Temp = Temp & AscW(Mid(DLieu, i, 1)) & ","
    Next i
    AscW_From_Char = Temp
End Function

Function ChrW_From_AscW(DLieu As String) As String
    If Trim(DLieu) = "" Then
        ChrW_From_AscW = "Error"
        Exit Function
    End If
    Dim i As Integer
    Dim Temp As String
    Dim Temp_Number As Integer
    Dim zArr() As String
    zArr = Split(DLieu, ",")
    For i = LBound(zArr) To UBound(zArr)
      Temp_Number = Val(Trim(zArr(i)))
      If Temp_Number <> 0 Then
        Temp = Temp & ChrW(zArr(i))
      End If
    Next
    ChrW_From_AscW = Temp
End Function