Code won't stop looping even when the cancel button is pressed within an input box

[Pookiemeister]

When I click on the cancel button within the inputbox it gets stuck in the loop. How can I exit sub when cancel is clicked. Thank you.

Sub splitLot()    
    answ = ""


    ans = MsgBox("Is this a split lot?", vbYesNo + vbDefaultButton1, "Split Lot")
    
    If ans = vbNo Then
        frmPackageYield.Show vbModeless
    Else
        Call InptBx1
        If answ = "" Then
            Do
                MsgBox "Please enter a numerical value." & vbCrLf & "Number must be greater than one.", vbInformation + vbOKOnly, "No Value Entered"
                Call InptBx1
            Loop Until answ <> ""
        End If
        
        frmPackageYield.Show vbModeless
    End If
End Sub
Sub InptBx1()
    answ = InputBox("How many times does this lot split?", "Split Lot")
End Sub

 

[Logit]

.
Untested here but should work :

 If ans = vbNo Then
        frmPackageYield.Show vbModeless
Exit Sub
    Else
        Call InptBx1
        If answ = "" Then

 

[Logit]

.
Similar code :

Option Explicit


Sub Test3()
Dim answer As Variant
  answer = MsgBox("Yes = run Test1; No = run Test2", vbYesNo + vbQuestion, "Choose macro to run")
  If answer = vbYes Then
      Call Test1
   Else
     'Call Test2
     Exit Sub
End If
End Sub


Sub Test1()
   Range("A1").Value = "A"
End Sub


Sub Test2()
   Range("A2").Value = "B"
End Sub