Function is_Date( sDate )
		    Dim vDate
		    is_Date = False
		    If Len(sDate) <> 8 Then Exit Function
		    vDate = Mid(sDate, 5, 2) & "/" & Right(sDate, 2) & "/" & Left(sDate, 4)
		    If IsDate(vDate) Then is_Date = True
		End Function