Test thu bai

[sealand]

Bài không dấu Tiếng Việt sẽ bị xoá, phải đặt tên tựa đề rõ nghĩa và tránh dùng các từ Help me, cứu cứu, cứu em, gấp gấp,...

Function UniVn3(text As String) As String
For i = 1 To Len(text)
  kytu = Mid(text, i, 1)
  codkytu = AscW(kytu) & String(5 - Len(CStr(AscW(kytu))), " ")
  vitri = (InStr(1, CodUni, codkytu, 0) + 4) / 5
  If vitri >= 1 Then
    newtext = newtext & Mid(StrVn3, vitri, 1)
  Else
    newtext = newtext & kytu
  End If
Next
UniVn3 = newtext
End Function

Thử trích đoạn code trên GPE