Keith_McCloy
Member
- Joined
- Dec 13, 2011
- Messages
- 6
- Programming Experience
- 10+
I have the following code in my program;-
I get the error given in the title at the InputBox() line, telling me that a parameter is not valid. I have tried changing this to a MsgBox Function (with minor code changes) and get the same error. I do not think the problem is in this line of code, but where is the problem? Any help will be appreciated.
Do astring = "Interpolated at Level " & CStr(level) & ". Continue (C), Save and Continue (S) or Stop (X)?" bstring = "Refine the interpolation or not?" cstring = "C" cstring = InputBox(astring, bstring, cstring).ToUpper Select Case cstring Case "C" buildstatus = True Case "S" Call AllOfTheDataToolStripMenuItem1_Click(sender, e) buildstatus = True Case "X" buildstatus = False End Select Loop While ((cstring <> "C") And (cstring <> "S") And (cstring <> "X"))
I get the error given in the title at the InputBox() line, telling me that a parameter is not valid. I have tried changing this to a MsgBox Function (with minor code changes) and get the same error. I do not think the problem is in this line of code, but where is the problem? Any help will be appreciated.
Last edited by a moderator: