1Public Function UnicodeDecode(StringToDecode As String) As String
2    'for converting string like "Phút giây gần nhau" to unicode

3  Dim TempAns As String
4  Dim CurChr As Integer, iEnd As Integer
5  CurChr = 1
6   Do Until CurChr > Len(StringToDecode)
7    Select Case Mid(StringToDecode, CurChr, 2)
8    Case "&#"
9        iEnd = InStr(CurChr + 2, StringToDecode, ";")
10        TempAns = TempAns & ChrW(Mid(StringToDecode, CurChr + 2, iEnd - (CurChr + 2)))
11        CurChr = iEnd
12    Case Else
13      TempAns = TempAns & Mid(StringToDecode, CurChr, 1)
14    End Select
15    CurChr = CurChr + 1
16  Loop
17  UnicodeDecode = TempAns
18End Function
19