datecheck.vb

Dim Year As String = Text.ToString.Substring(0, 2)
Dim Month As String = Text.ToString.Substring(2, 2)
Dim Day As String = Text.ToString.Substring(4, 2)

Try
'日付型に変換して有効な値が設定されているか確認する
	Dim tmp As String = String.Format("20{0}/{1}/{2}", Year, Month, Day)
	DateTime.Parse(tmp)
Catch
	MessageBox.Show("有効な日付を設定してください")
	Me.Focus()
	Return
End Try