Solved: logic help

[benong]

hi,
i want to validate the date in correct format:
- the date is numeric
- the date is 8 digits in length
- the date is not empty.
But i have problems with the logic below:


Do
rDate = InputBox("Input date (yyyymmdd)")
Loop While rDate <> "" And Len(rDate) <> 8 And IsNumeric(rDate)
Pls advise, thanks.

[Bob Phillips]

Do
rDate = InputBox("Input date (yyyymmdd)")
Loop While rDate = "" Or Len(rDate) <> 8 Or Not IsNumeric(rDate)

[benong]

Dear xld,
many thanks, it works perfectly :)