Would like an auto adjusting InputBox

Basically I have a script with one line like:
   variable = InputBox("some prompt", "some title")
which works fine for sinle line / single item entry.  However, what I'd like to have happen is that the box is capable of multiple line / item inputs as well.  So if there is only one item to process the action on, just enter the item name and click "ok".  If there are multiple items to process action on, simply enter them one line at time by pressing return after each (inputbox auomatically expands so you can see the list, or is scrollable -- then "ok" to finish.  Is this possible?  If so, how?
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.


In short, no this is not possible with the standard input box, unless you ask the user how many items they want to enter, like so:
intItems = Int(InputBox("How many items do you want to enter?","Amount of Items","1"))
ReDim arrItems(intItems - 1)
For intItem = 0 To UBound(arrItems)
      arrItems(intItem) = InputBox("Please enter item number " & intItem + 1 & " of " & UBound(arrItems) + 1 & ":","Item Number " & intItem + 1 & " of " & UBound(arrItems) + 1)
MsgBox Join(arrItems, VbCrLf)

The only way to have a multi-line text box is to build a HTA.



Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
LawrenceBYorkAuthor Commented:
Unfortunately that's what I feared.  Ok, thanx!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.