流れを無視してすみません
VBA初心者ですが質問させてください

Userformでの話なのですが
ボタンが押された際に
TextBoxにセルの値を代入し表示
2秒間隔をあけ、その後フォームを閉じる

という処理を行いたいのですがTextBoxに表示される前にフォームが閉じられてしまいます。
フォームが閉じられる前にTextBoxにテキストを表示させるにはどのような方法をとればいいのでしょうか？

サンプルコードは以下のとおりです。

Private sub CommandButton1_Click()

TextBox1.text = sheets("sheet1").range("A1").value

call delay(2) '2秒ディレイするという命令

Unload Me

endsub

分かりづらいコードで申し訳ないですがご指導のほどお願いいたします。