Excel VBA 上書き保存後にフォーカスが消失

発生している問題・エラーメッセージ

発生している問題
上書き保存後にユーザーフォーム上のテキストボックスでのフォーカスが消失してしまう。

作成しているマクロは部品在庫管理になります。
ユーザーフォームは部品検索フォームと入出庫フォームの二つを行き来するようになっています。

部品検索フォームで部品を検索し、登録されていれば、入出庫フォームに移動します。
移動先の入出庫フォームで入出庫数を入力して計算した後に、上書き保存して部品検索フォームに戻ります。
それの繰り返しです。

入出庫フォームで上書き保存後に部品検索フォームのテキストボックスにフォーカスするようにしているのですが、なぜかEnterが機能しません。
毎回、必ず問題が発生するわけではありません。
問題が発生するのは一度マクロを開いて入出庫をした後にマクロを閉じて、再度マクロを開いて入出庫を登録後に発生します。

解決する手段がありましたら、教えて頂けますと幸いです。
宜しくお願い致します。

該当のソースコード

Excel
1
2'入出庫フォーム
3Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
4    
5    Set wb = Workbooks("試験.xlsm")
6    If wb.Saved = False Then wb.Save
7
8End Sub
9
10'部品検索フォーム
11Private Sub UserForm_Activate()
12    
13    Select Case Formopen
14        Case 0
15            Formopen = 10
16            Unload UserForm0
17        Case 2
18            Formopen = 10
19            Unload UserForm2
20    End Select
21    
22    Me.TextBox1.TabStop = True
23    Me.TextBox1.SetFocus
24    Formopen = 1
25
26End Sub

試したこと

テキストボックスにはフォーカスがあるように見えるのですが、Enter,ESCキーを押下しても反応しない

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Debug.Print "1"
If KeyCode = "13" Then
    Call UserForm1a
End If

End Sub

keydownイベントで上記コードを記載しましたが、問題発生時イベントが発生していません。
（イミディエイトウィンドウに何も記載されない）
（テキストボックスには入力した文字、数字は表示される）
テキストボックスのchangeイベントで上記同様にDebug.Printで確かめると、テキストボックスのchangeイベントは発生していました。