I have a working IF-THEN-ELSE, could I request a little help on the messages in the msgbox I have read and read thought they wanted
ASCII Chr 13 in the help file I saw (Chr(*)) thevalue for ascii 13 which when I use Alt numeric 13 I get the question Mark I am attaching the working code and a few ways I tried the Message to get more in the box. I have learned about the 0 - 5 and the options it gives.
The first code works, not message box like I want with 3 lines. Then next section of code is what I have tried and failed on
Loosing a lot of time if I could get someone in the know to help. Tried from 12:18am to 3:47am finally got the IF then working
but could never get the message Box.
Private Sub SeletRoutine()' 050419 - This is working need to know how to enter multi-Line Message____________________________________RJB
Dim Message, Title, Default, ValSel
ShowStatus " "
Title = "Enter Selection to RUN" ' Set title. 060419 Modified_______RJB
Message = "Enter a value between 1 and 3" ' Set prompt.'Message = "Selection 2 Set View Attributes " ' Set prompt.
Default = "1" ' Set default.
ValSel = InputBox(Message, Title, , , , "DEMO.HLP", 10)' Display message, title, and default value.
If ValSel = 1 Then
'MsgBox "User pressed Yes!"
ShowStatus " 1 was selected"
ElseIf ValSel = 2 Then'MsgBox "User Pressed No!"
CadInputQueue.SendKeyin "Macro SetDesignFileView"
ShowStatus "View Set w=985 H=723"
ElseIf ValSel = 3 Then'MsgBox "User Pressed No!"
ShowStatus "3 was selected"
Else'MsgBox "User Pressed Cancel!"
ShowStatus "Cancel was selected"
End If
End SubPrivate Sub Selections()' 060519 - Trying again
Dim Message, Title, Default, ValSel
Title = "InputBox Select Feature: 'Set title."'Message = "Enter 1 for yellow Magenta ? Enter 2 for green magenta.? Enter 3 for Cyan Magenta?"'Message = "Enter a value between 1 and 3?", 2 "Second row of questions" ' Set prompt. this failed
Message = "Enter 1 for yellow Magenta ?',(Chr(?)), "Enter 2 for green magenta.?",(chr(?)), "Enter 3 for Cyan Magenta?"
THE ABOVE SECTION IS WHERE I WAS TRYING TO SET THE MESSAGE BOX INFORMATION
Above code is another working macro. Did not want to mess it up
so started another with different name. Trying to figure out a multi-line message box
