Sub Example_GetReal()
    ' Этот пример возвращает Real, вводимый пользователем.
    
    Dim returnReal As Double
    
    ' Возвратите значение, введенное пользователем. Подсказка обеспечена.
    returnReal = ThisDrawing.Utility.GetReal("Введите Real: ")
    MsgBox "Введенн был " & returnReal & vbCrLf & _
            "(Введите следующее значение без подсказки.)", , "GetReal Пример"
    
    ' Возвратите значение, введенное пользователем. Никакая подсказка не обеспечена.
    returnReal = ThisDrawing.Utility.GetReal()
    MsgBox "Введенный был " & returnReal, , "GetReal Пример"
    
End Sub