William III, Count of Henneberg-Schleusingen