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]

[vba]

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

[benong]

Dear xld,
many thanks, it works perfectly