Code về chuyền mã UNICODE trong CHAT

Chào các bạn! Mình có thắc mắc về đoạn mã sau, trong phần chuyền mã UNICODE trong CHAT mà thầy đã hướng dẫn mình:
Dim i, n
txtStringExpression = ""
For i = 1 To Len(txtUnicodeLabelCaption)
n = AscW(Mid(txtUnicodeLabelCaption, i, 1))
txtStringExpression = txtStringExpression & "ChrW(" & n & ")+"
Next
txtStringExpression = Left(txtStringExpression, Len(txtStringExpression) - 1)

Điều mình thắc mắc là:
- phương thức ArcW(.........) hoạt động như thế nào đề chuyển từng ký tự mà chúng ta nhập vào sang mã UNICODE ????

- ở dòng mã cuối cùng, tại sao chúng ta phải lấy phần bên trái của đoạn văn bản mà chương trình đã chuyển sang UNICODE giúp ta ????

Các bạn giải thích giúp mình nhé!! Thanks nhiều lắm!!!!