Function VbaUni(Chuoi As String) As String
Dim n As Long, uni1 As String, uni2 As String
If Chuoi = "" Then
VbaUni = """"""
Else
Chuoi = Chuoi & " "
If AscW(Left(Chuoi, 1)) < 256 Then VbaUni = """"
For n = 1 To Len(Chuoi) - 1
uni1 = Mid(Chuoi, n, 1)
uni2 = AscW(Mid(Chuoi, n + 1, 1))
If AscW(uni1) > 255 And uni2 > 255 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & "
ElseIf AscW(uni1) > 255 And uni2 < 256 Then
VbaUni = VbaUni & "ChrW(" & AscW(uni1) & ") & """
ElseIf AscW(uni1) < 256 And uni2 > 255 Then
VbaUni = VbaUni & uni1 & """ & "
ElseIf AscW(uni1) = 227 Or AscW(uni1) = 253 Or AscW(uni1) = 242 Or AscW(uni1) = 236 Then
VbaUni = VbaUni & """ & " & "ChrW(" & AscW(uni1) & ") & """
Else
VbaUni = VbaUni & uni1
End If
Next
If Right(VbaUni, 4) = " & """ Then
VbaUni = Mid(VbaUni, 1, Len(VbaUni) - 4)
Else
VbaUni = VbaUni & """"
End If
End If
End Function