vba高手请帮忙看看？？？？？？

hhb

Sub Example_InitializeUserInput()
    ' This example prompts for user input of a point. By using the
    ' InitializeUserInput method to define a keyword list, it can also
    ' return keywords entered by the user.
    On Error Resume Next
    ' Define the valid keywords
    Dim keywordList As String
    keywordList = "Keyword1 Keyword2"
    ' Call InitializeUserInput to setup the keywords
    ThisDrawing.Utility.InitializeUserInput 128, keywordList
    ' Get the user input
    Dim returnPnt As Variant
    returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point(Keyword1, Keyword2): ")
    If Err Then
         If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
         ' One of the keywords was entered
             Dim inputString As String
             Err.Clear
             inputString = ThisDrawing.Utility.GetInput
             MsgBox "You entered the keyword: " & inputString
         Else
             MsgBox "Error selecting the point: " & Err.Description
             Err.Clear
         End If
    Else
        ' Display point coordinates
        MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput Example"
    End If
End Sub
上面是2002中vba帮助文件的一个例子，在英文版中当输入字符时Err.Description返回 "User input is a keyword",但在中文版输入字符时Err.Description返回一个“？？？组件错误”。
请问vba高手这是怎么回事？
系统：win98se,AutoCAD2002中、英文D版，中文版用算号器破解。

龙龙仔

hhb

leeyeafu

程序并没有出现什么不对的地方呀。
只不过在程序运行过程中，用户输入错误时，中文版和西文版VBA返回不同的错误代码(Err.Description)，这应该说一点也不奇怪，你要在中文版中正确运行程序，只要将这句代码改动一下，应该就可以了。
If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
改为：
If StrComp(Err.Description, "？？？组件错误", 1) = 0 Then

河伯