Create OpenObject.vb