[求助]如何转换将图面上繁体字或简体字互转呢?

Sub Main()
    Dim Str As String
    Dim tmpStr As String
    Str = "乐筑天下--AutoCAD机械设计园区AutoLisp,Inventor,VBA"
    tmpStr = ChtToChs(Str)
    Debug.Print "未转换简体字符：" & Str
    Debug.Print "已转换繁体字符：" & tmpStr
    'ThisDrawing.ModelSpace(0).TextString = tmpStr
    'ThisDrawing.ModelSpace(1).TextString = Str
    Str = tmpStr
    tmpStr = ChsToCht(Str)
    Debug.Print "已转回简体字符：" & tmpStr
End Sub
Function ChtToChs(Str As String) As String
    Dim i As Long
    Dim tmpStr As String
    Dim s  As String
    Dim StrList As Variant
    StrList = GetChtStrList
    For i = 1 To Len(Str)
        s = Mid(Str, i, 1)
        If Asc(s)  32 And iStr  9 Then StrList(iStr + 24256 + 57) = Asc(Mid(ChsStr, i, 1))
    Next
    GetChsStrList = StrList
End Function
Function GetStr(isChs As Boolean) As String
    Dim strFile As String
    Dim strPath As String
    Dim strText As String
    strFile = VBE.ActiveVBProject.FileName
    strPath = Left(strFile, InStrRev(strFile, ""))
    If isChs Then
        strFile = "chsstr.dat"
    Else
        strFile = "chtstr.dat"
    End If
        Open strPath & strFile For Input As #1
    Do Until EOF(1)
        Line Input #1, strText
        GetStr = GetStr & strText
    Loop
    Close #1
End Function