Hién thi tiéng Viét Unicode trong VB6 dé dang hon!. Trước hết, tôi cũng xây dựng một hàm tương tự như ham CharUnicode va cũng thêm vào hộp công cụ của VB các điêu khiên control cua MS Fo
Trang 1Hién thi tiéng Viét Unicode trong VB6 dé dang hon!
Trước hết, tôi cũng xây dựng một hàm tương tự như ham CharUnicode va cũng thêm vào hộp công cụ của VB các điêu khiên (control) cua MS Forms 2.0 như hướng dân của anh Băng
Nhưng tôi đặt tên hàm là Viethoa (Việt hóa) và tạo ra chức năng chuyển thành mã tiếng Việt Unicode đối với chuỗi được gõ vào theo cách như khi bạn gõ tiếng Việt với kiểu gõ VNI (đoạn
mã 1) Ví dụ, khi bạn muốn hiển thị cụm từ "Tiếng Việt", bạn chỉ cần viết đoạn mã như sau: Private Sub Form_Load()
cmdTiengviet.Caption = Viethoa(“Tie61ng Vie65t’)
End Sub
Bạn có thể làm tương tự đề dùng kiểu gõ khác mà bạn ưa thích Chúc bạn thành công!
Doan ma 1
Function Viethoa(chuoi As String)
Dim 1 As Integer
Dim j As Integer
Forj=1To2
For 1= 2 To Len(chuoi)
Select Case Mid(chuot1, 1, 1)
Case "1"
‘a
If Mid(chuoi, 1 - 1, 1) = "a" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HE1) & Right(chuoi, Len(chuoi) - i)
End If
If Mid(chuoi, 1- 1, 1) ="A" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HC1) & Right(chuoi, Len(chuoi) - i)
End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HI1EAS) & Right(chuoi, Len(chuo1) - i)
End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEA4) & Right(chuoi, Len(chuo1) - i)
End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAF) & Right(chuoi, Len(chuoi) - i)
End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAE) & Right(chuoi, Len(chuoi) - i)
End If
Trang 2e
If Mid(chuoi, 1 - 1, 1) = "e" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HE9) & Right(chuoi, Len(chuol) - i) End If
If Mid(chuoi, 1 - 1, 1) ="E" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HC9) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEBF) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEBE) & Right(chuoi, Len(chuoi) - i) End If
1
If Mid(chuoi, 1 - 1, 1) = "i" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HED) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, 1 - 1, 1) = "I" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HCD) & Right(chuoi, Len(chuo1) - i) End If
'O
If Mid(chuoi, 1 - 1, 1) = "0" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HF3) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="O" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HD3) & Right(chuoli, Len(chuol) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIED1) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDO) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEDB) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDA) & Right(chuoi, Len(chuoi) - i) End If
Trang 3u
If Mid(chuoi, 1 - 1, 1) = "u" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HFA) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="U" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HDA) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEE9) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEE8) & Right(chuoi, Len(chuoi) - i) End If
y
If Mid(chuoi, 1 - 1, 1) = "y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HFD) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1- 1, 1) ="Y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HDD) & Right(chuoi, Len(chuoi) - i) End If
Case "2"
‘a
If Mid(chuoi, 1 - 1, 1) = "a" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HE0) & Right(chuoi, Len(chuol) - i) End If
If Mid(chuoi, 1- 1, 1) ="A" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HC0) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA7) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEA6) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB1) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EBO) & Right(chuoi, Len(chuoi) - 1) End If
Trang 4e
If Mid(chuoi, 1 - 1, 1) = "e" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HES8) & Right(chuoi, Len(chuol) - i) End If
If Mid(chuoi, 1 - 1, 1) ="E" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HC8) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then
chuoi = Left(chuoi, i - 2) & ChrwW$(&HIEC1) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEC0) & Right(chuoi, Len(chuoi) - 1) End If
1
If Mid(chuoi, 1 - 1, 1) = "i" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HEC) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, 1 - 1, 1) = "I" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HCC) & Right(chuoi, Len(chuo1) - 1) End If
'O
If Mid(chuoi, 1 - 1, 1) = "0" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HF2) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, 1 - 1, 1) ="O" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HD2) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IED3) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1ED2) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDD) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDC) & Right(chuoi, Len(chuol) - 1) End If
u
Trang 5If Mid(chuoi, 1 - 1, 1) = "u" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HF9) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="U" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HD9) & Right(chuoi, Len(chuol) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEEB) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEEA) & Right(chuoi, Len(chuoi) - i) End If
y
If Mid(chuoi, 1 - 1, 1) = "y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HI1EF3) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1- 1, 1) ="Y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEF2) & Right(chuoi, Len(chuoi) - i) End If
Case "3"
‘a
If Mid(chuoi, 1 - 1, 1) = "a" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EA3) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, 1- 1, 1) ="A" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEA2) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEA9) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEA8) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB3) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB2) & Right(chuoi, Len(chuoi) - 1) End If
e
Trang 6If Mid(chuoi, 1 - 1, 1) = "e" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEBB) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="E" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEBA) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEC3) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEC2) & Right(chuoi, Len(chuoi) - 1) End If
1
If Mid(chuoi, 1 - 1, 1) = "i" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEC9) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, 1 - 1, 1) = "I" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEC8) & Right(chuoi, Len(chuoi) - 1) End If
'O
If Mid(chuoi, 1 - 1, 1) = "0" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECF) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, 1 - 1, 1) ="O" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECE) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDS5) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIED4) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDF) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEDE) & Right(chuoi, Len(chuoi) - i) End If
u
If Mid(chuoi, 1 - 1, 1) = "u" Then
Trang 7chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEE7) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="U" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEE6) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEED) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEEC) & Right(chuoi, Len(chuoi) - i) End If
y
If Mid(chuoi, 1 - 1, 1) = "y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEF7) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1- 1, 1) ="Y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEF6) & Right(chuoi, Len(chuoi) - i) End If
Case "4"
‘a
If Mid(chuoi, 1 - 1, 1) = "a" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HE3) & Right(chuoi, Len(chuol) - i) End If
If Mid(chuoi, 1- 1, 1) ="A" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HC3) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAB) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAA) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEBS5) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB4) & Right(chuoi, Len(chuoi) - 1) End If
'e
If Mid(chuoi, 1 - 1, 1) = "e" Then
Trang 8chuoi = Left(chuoi, i - 2) & ChrW$(&HIEBD) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, 1 - 1, 1) ="E" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEBC) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECS) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEC4) & Right(chuoi, Len(chuoi) - 1) End If
1
If Mid(chuoi, 1 - 1, 1) = "i" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H129) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) = "I" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H128) & Right(chuoi, Len(chuoi) - i) End If
'O
If Mid(chuoi, 1 - 1, 1) = "0" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HF5) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1 - 1, 1) ="O" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HDS5) & Right(chuoi, Len(chuon) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IED7) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HDA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IED6) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEE1) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEEO) & Right(chuoi, Len(chuoi) - i) End If
'u
If Mid(chuoi, 1 - 1, 1) = "u" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H169) & Right(chuoi, Len(chuoi) - i)
Trang 9End If
If Mid(chuoi, 1 - 1, 1) ="U" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H168) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1B0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEEF) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1AF) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEEE) & Right(chuoi, Len(chuo1) - 1) End If
y
If Mid(chuoi, 1 - 1, 1) = "y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEF9) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, 1- 1, 1) ="Y" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEF8) & Right(chuoi, Len(chuoi) - i) End If
Case "5"
‘a
If Mid(chuoi, 1 - 1, 1) = "a" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEA1) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, 1- 1, 1) ="A" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEAO) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HE2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAD) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HC2) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEAC) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H103) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB7) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H102) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EB6) & Right(chuoi, Len(chuoi) - 1) End If
'e
If Mid(chuoi, 1 - 1, 1) = "e" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEB9) & Right(chuoi, Len(chuoi) - 1)
Trang 10End If
If Mid(chuoi, 1 - 1, 1) ="E" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HI1EB8) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HEA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEC7) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HCA) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1IEC6) & Right(chuoi, Len(chuoi) - 1) End If
1
If Mid(chuoi, 1 - 1, 1) = "i" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECB) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, 1 - 1, 1) = "I" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECA) & Right(chuoi, Len(chuol) - 1) End If
'O
If Mid(chuoi, 1 - 1, 1) = "0" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECD) & Right(chuoi, Len(chuol) - 1) End If
If Mid(chuoi, 1 - 1, 1) ="O" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIECC) & Right(chuoi, Len(chuoi) - 1) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HF4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIED9) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&HD4) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIED8) & Right(chuoi, Len(chuo1) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A1) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&H1EE3) & Right(chuoi, Len(chuoi) - i) End If
If Mid(chuoi, i - 1, 1) = ChrW$(&H1A0) Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEE2) & Right(chuoi, Len(chuoi) - i) End If
u
If Mid(chuoi, 1 - 1, 1) = "u" Then
chuoi = Left(chuoi, i - 2) & ChrW$(&HIEES) & Right(chuoi, Len(chuoi) - i) End If