テキストボックスで受け付ける日付の形式がどんなものかは分かりませんが、今回の場合なら If Text1.Text = Format$(Text1.Text, "yy/mm/dd") Then Debug.Print "正しい日付" Else Debug.Print "間違った日付" End Ifとかどうでしょう?