VBScript--檢查輸入的民國年制日期字串是否正確？

1. 假設輸入的民國年制日期，使一個七碼的字串，年三碼月兩碼日兩碼(YYYMMDD)。document.all("InputDate").value
2. 使用以下的程序來檢查，是否為正確的日期格式？

zDate = document.all("InputDate").value

sub CheckChineseDate()

    if isNumeric(zDate) and instr(1,zDate,".")=0 then

         zDateA = CStr(CDBL(zDate) + 19110000)

         zDateB = mid(zDateA,1,4) & "/" & mid(zDateA,5,2) & "/" & mid(zDateA,7,2)

        if isDate(zDateB) then 

            msgbox "輸入的資料，符合日期格式"

        else

            msgbox "輸入的資料，不符合日期格式"

        end if

    else

        msgbox "輸入的資料，不符合日期格式"

end sub