Sub WorkItOutVB4()

		if not IsNumeric(form.width.value) then
			MsgBox("Please Enter A Valid Width")
			exit sub
		end if

		if not IsNumeric(form.height.value) then
			MsgBox("Plese Enter A Valid Height")
			exit sub
		end if

		n_width = CDbl(Form.width.value)/100
		n_height = CDbl(Form.height.value)/100

		if abs(n_width - Int(n_width)) > 0 then
			n_width = Int(n_width) + 1
		end if

		if abs(n_height - Int(n_height)) > 0 then
			n_height = Int(n_height) + 1
		end if

		n_total = n_width * n_height
		n_total = n_total + 300
		n_total = n_total - (n_total*0.20)
		n_total = n_total + 20

		
		n_total = n_total + n_extra

		Form.width.value = n_width * 100
		Form.height.value = n_height * 100

		Form.Price.Value = FormatNumber(n_total,2)
	End Sub