消息框（确定/取消）在取消时出现两次

Question

以下代码检查文件是否以正确的名称开头，然后检查用户想要的内容。大多数代码工作正常，但如果用户按“取消”，消息框会重新出现。

Sub CheckBronbestand()
If Not Left(Dir(frmUpdate.txtOud), 5) = "Ap10" Then
    result = MsgBox("Message line 1." & vbCrLf & vbCrLf & "Message line 2", vbOKCancel + vbQuestion, "Onjuist bestand")
    If result = vbOK Then
        frmUpdate.lblBron.Caption = Left(Dir(frmUpdate.txtOud), InStr(Dir(frmUpdate.txtOud), ".") - 1)
        Exit Sub
    ElseIf result = vbCancel Then
        frmUpdate.txtOud.Text = ""
        Exit Sub
    End If
Else
    frmUpdate.lblBron.Caption = Left(Dir(frmUpdate.txtOud), InStr(Dir(frmUpdate.txtOud), ".") - 1)
End If

End Sub

我看不出问题是什么，我能做什么？

Answer 1

谢谢你的回答，它让我走上了正轨

就在我添加的代码上方：

If frmUpdate.txtOud = "" Then
Exit Sub 
End If