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