日付入力書式判定(必ず/が2つ入るパターン判定)
Set objRE = New RegExp
'書式設定
objRE.Pattern = "\d\d\d\d/\d+/\d+"
myVal = objRE.Test(入力日付値)
If Not myVal Then
書式外の処理
End IF
Set objRE = New RegExp
'書式設定
objRE.Pattern = "\d\d\d\d/\d+/\d+"
myVal = objRE.Test(入力日付値)
If Not myVal Then
書式外の処理
End IF