Замена формы на InputBox - VB

Формулировка задачи:

Как не вызывая формы ввести InputBox? Вне формы выдается ошибка, а внутри формы сначала появляется форма, а затем окно InputBox или что тоже как убрать появление формы? Спасибо.

Решение задачи: «Замена формы на InputBox»

textual
                            Листинг программы 
                        

                            Sub Main()
s$ = InputBox("Напишите тут что нибудь", "У меня нет формы", "?")
MsgBox s$, vbOKOnly, "Вы написали"
End Sub
                        