function chkVBDate(fld)
		dim imp_value
		imp_value = fld.value
		if Trim(imp_value) <> "" then
			if len(imp_value) = 6 then
				if instr(1,imp_value,"-") = 0 AND isnumeric(imp_value) then
					if CInt(left(imp_value,2)) < 30 then
						imp_value = "20" & imp_value
					else
						imp_value = "19" & imp_value
					end if
				end if
			end if
			if len(imp_value) = 8 then
				if isnumeric(imp_value) then
					imp_value = left(imp_value,4) & "-" & mid(imp_value,5,2) & "-" & Right(imp_value,2)
				else
					if isnumeric(left(imp_value,2)) then
						if CInt(left(imp_value,2)) < 30 then
							imp_value = "20" & imp_value
						else
							imp_value = "19" & imp_value
						end if
					end if
				end if
			end if
			if NOT IsDate(imp_value) then
				MsgBox(imp_value & " är inget datum!")
				fld.select()
			else
				fld.value = imp_value
			end if
		end if
	end function