Why this program ignores "exit sub"

Question

0.00/5 (No votes)

See more:

When i execute this code.Its actually ignore the exit sub after the 1st msgbox and display the next msgbox whether the condition is true or false. Please help me with the answer

VB

Sub Insertnex()
Dim Name As String
Dim State As String
Dim Newdate As Date
Dim ButtonClicked As VbMsgBoxResult

GuessAgain:
Name = InputBox("Please enter the name")
Sheet1.Activate

On Error GoTo Namenotfound
Range("B3:B15").Find(Name).Select
On Error GoTo 0

Name = ActiveCell.Value
State = ActiveCell.Offset(0, 1).Value
On Error GoTo InvalidDate

Date = ActiveCell.Offset(0, 2).Value
MsgBox Name & " stays in " & State & " she is staying there since " & Date

Exit Sub

Namenotfound:
ButtonClicked = MsgBox(Name & " was not found in the list.")
 
If ButtonClicked = vbRetry Then Resume GuessAgain

Exit Sub

InvalidDate:
MsgBox Date & "Was in wrong formate"


End Sub

What I have tried:

I tried to figure out the issue but i am unable to solve this

Posted 6-Feb-18 18:54pm

Member 13658733

Updated 6-Feb-18 20:37pm

Maciej Los

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2018-02-06T20:37:00

Solution 1

To be able to get vbRetry code, you need to properly set up MsgBox, for example:

VB

Sub Test()
Dim ButtonClicked As Long

ButtonClicked = vbRetry
Do While ButtonClicked = vbRetry
    ButtonClicked = MsgBox("Click Cancel to exit the loop", vbRetryCancel, "Not found...")
Loop

End Sub

Feel free to change the code to your needs.

Posted 6-Feb-18 20:37pm

Maciej Los

Comments

Member 13658733 7-Feb-18 4:02am

Thanks for your Suggestion Maciej Los but i want to understand why my Exit Sub is not working after 1st msgbox.

Maciej Los 7-Feb-18 6:46am

Well... the best way to find out why your code doesn't work as expected is to use debugger. How? Use [F8] instead of [F5]. This will give a chance to resolve your issue by executing a code line by line.
Cheers,
Maciej