Hỏi về cách find và replace text bang vba trong cad

[luongtuananh83]

Hỏi về cách add 1text chinest lên autocad

Tôi 1muốn viết 1môdun nhỏ với chức năng: add 1text tiếng trung (font này được cài bằng cách install files for East Asian Languges) Code như sau:
Private Sub Cmd_Click()
Dim TextString As String
Dim textObj As AcadText
Dim insertionPoint(0 To 2) As Double
Dim height As Double
Dim y As Double
Dim x As Double

TextString = text.text
height = 2.8
insertionPoint(0) = 0: insertionPoint(1) = 0: insertionPoint(2) = 0
Set textObj = ThisDrawing.ModelSpace.AddText(TextString, insertionPoint, height)
'textObj.Layer = "Zmiengday"
textObj.Update
End Sub

Tuy nhiên khi hiển thị lên bản vẽ thì các chữ bằng tiếng trung là các dấu hỏi (?) (đối với tiếng việt hoặc tiếng anh thì bình thường). Xin các bạn gợi ý hướng giải quyết. Thanks