Reverted to VBA, as VBA-M didn't accept the keyinputs