'  Set mxUtility = New MxDrawXLib.MxDrawUtility
          'MsgBox (mxUtility.GetString("输入字符串", "缺省值"))

           Dim getString As MxDrawUiPrString
           Set getString = New MxDrawUiPrString
           getString.message = "输入一个文字 或[闭合(N)/放弃(A)]"
           getString.keyWords = "N A"
           getString.defValue = "缺省值"

           Dim ret As MCAD_McUiPrStatus
           ret = getString.go()

           If ret = MxDrawXLib.mcOk Then
                '输入字符串
                MsgBox getString.Value()
           ElseIf ret = MxDrawXLib.mcKeyWord Then
                ' 输入了关键字
                MsgBox "关键字"
                MsgBox getString.keyWordPicked()
           End If