Dim a As single

a= Val(inputBox(" Введите значение а "))

Синтаксис полного представления функции inputBox(), включает необязательные параметры: [Заголовок окна ]

[ввод по умолчанию ], [гориз. расположение окна ], [верт. расположение окна ], [помощь ], [ контекст ].

3.Фрагмент программы ввода данных с помощью окна TextBox на форме (рис. 13.3):

Dim a As single

a= Val(TextBox1.Text)