function vbConfirmDelete(byval msg)
	dim a
	a = msgbox (msg,257, "Confirm Delete")
	vbConfirmDelete = a
end function