Sub YesNoMessageBox()
    Dim answer As String
    Dim message As String
    Dim i As String
handlingPathError:
    i = InputBox("Enter a number")
    message = "Pfad ungueltig, moechten Sie erneut auswaehlen?"
    On Error GoTo errHandler
    MsgBox (1 / CInt(i))
    Exit Sub
errHandler:
    If Err.Number = 11 Then
        answer = MsgBox(message, vbQuestion + vbYesNo, "EKC Bot")
        If answer = vbNo Then
            'Code for No button Press
            Exit Sub
        Else
            'Code for Yes button Press
            Resume handlingPathError
        End If
    End If
End Sub