multiline Input Box

Hi

I have written te following code:

Private Sub Workbook_Open()
Dim stTools As Variant
Dim ireply As Integer

Do
Do
stTools = Application.InputBox( _
Prompt:="Please type the tool numbers you are using for this job:" _
Title:="Tool List", Type:=1)
Loop While stTools = ""
'If the user has canceled the operation.
If stTools = False Then Exit Sub

ireply = MsgBox(Prompt:="You have entered the folllowing tools: " & stTools & " Is this correct?", _
Buttons:=vbYesNoCancel, Title:="Tools Inputted")

If ireply = vbNo Then ireply = False

If ireply = vbYes Then Exit Sub

If ireply = vbCancel Then Exit Sub
Loop While ireply = False

Exit Sub


Firstly, I'm very new to all this and I am assuming this is very messy and would appreciate any tips on how to tidy it up.

However, my question!

I would like the inputBox to have 3 lines which the user will type upto 3 different integers (tool serial numbers), rather than typing the three numbers onto one line.

How can I do this? I want to be able to call the 3 integers later to put in an email (if this is important?).


Thanks in advance.

Chris

have you tried userforms before? what you can have is create your own customised input box. then you can place them in separate fields which you can have transfered onto a worksheet which you could then email all with the touch of a button

Thanks very much guys.

I have never heard of userforms in excel before and I will now go away and try to work them out.

Also, thanks Ray for the code lesson, greatly appreciated!

Thanks again....

For multiline inputbox use &Chr(13)& between the lines
Example: stTools = Application.InputBox(Prompt:="Please type the tool" &Chr(13)& "numbers you are using for this job:", Title:="Tool List", Type:=1)

This will show two lines