Sub Example_GetKeyword()
    ' Этот пример использует Getkeyword, чтобы возвратить ключевое слово, введенное пользователем.
    ' InitializeUserInput устанавливает допустимые ключевые слова.
    
    ' Определите список допустимых ключевых слов
    Dim kwordList As String
    kwordList = "Width Height Depth"
    ThisDrawing.Utility.InitializeUserInput 1, kwordList
            
    ' Запросите пользователя вводить любое из ключевых слов. Возвратите
    ' "Width", "Height" или "Depth" в переменной returnString в зависимости от
    ' пользовательского ввода "W", "H" или "D".
    Dim returnString As String
    returnString = ThisDrawing.Utility.GetKeyword("Введите ключевое слово (Height) (Width) (Depth): ")
    MsgBox "Вы ввели " & returnString, , "GetKeyword Пример"
    
End Sub