ユーザーフォーム テキストボックスが日付形式か判定する

家計簿をユーザーフォームで作り中、テキストボックスの日付が"yyyy/mm/dd"かどうか判定したかったので参考コードを記載。
ネットで拾ったコードですが、多くの人に伝われば幸いです。

'If Not UF_食費入力.txt_日付.Format = "yyyy/mm/dd" Then　（自分で作った失敗コード）

’以下成功コード
If Not UF_食費入力.txt_日付.Text Like "####/##/##" And Not IsDate(UF_食費入力.txt_日付.Text) Then
    MsgBox "yyyy/mm/ddで入力せよ"
    Exit Sub
End If
>||


Like "####/##/##" で入力されている、かつisdateで日付形式でなければエラーになります。

本当はカレンダーを入れ込みたかったのですが、そこまでする気がなかったので簡易的なもので日付を取りたくこのように判定。