Sub Example_GetString()
    ' Этот пример демонстрирует различные способы возвратить строку,
    ' введенную пользователем.
    
    Dim returnString As String
    
    ' Подсказка и Ввод не могут содержать пробелы
    returnString = ThisDrawing.Utility.GetString(False, "Введите текст (пробел или <enter> заканчивает ввод): ")
    MsgBox "Введенная строка '" & returnString & "'", , "GetString Пример"
    
    ' Подсказка и Ввод могут содержать пробелы
    returnString = ThisDrawing.Utility.GetString(True, "Введите текст (<enter> заканчивает ввод):")
    MsgBox "Введенная строка '" & returnString & "'", , "GetString Пример"
    
    ' Подсказка и Ввод могут содержать пробелы, но не пустую строку
    Dim NoNull As Integer
    NoNull = 1    ' Отвергните пустой указатель
    ThisDrawing.Utility.InitializeUserInput NoNull
    returnString = ThisDrawing.Utility.GetString(True, "Введите текст (<enter> заканчивает ввод): ")
    MsgBox "Введенная строка '" & returnString & "'", , "GetString Пример"

End Sub