vba - Excel VBA TextBox イベント

Question

ここで専門家に質問したいのですが、以下のコードが Excel シートで機能しないのはなぜですか? 基本的に、このコードは、ユーザーが BDTextBox に入力した入力に対して検証を実行します。フォーマットが有効でない場合、警告メッセージがポップアップ表示されます。このコードを Excel シート形式でテストしましたが、うまく機能しますが、テキスト ボックスをフォームから Excel シートに埋め込まれたものに変更すると、機能しません。

Private Sub BDTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If BDTextBox.Text <> "" Then
    If IsDate(BDTextBox.Text) Then
        BDTextBox.Text = Format(BDTextBox.Text, "yyyymmdd")
        FinalBusinessDate = BDTextBox.Text
    Else
        MsgBox "Please enter a valid date!" & vbNewLine & "Date format could be one of the following" & vbNewLine & "YYYY MM DD" & vbNewLine & "MM DD YYYY" & vbNewLine & "DD MM YYYY", vbCritical
        BDTextBox.Text = ""
        Cancel = True
    End If
End If
End Sub