How to extract an audio file use vba?

hi,I use vba in offce 2016. I want to extract an audio file by vba. But it fails when I use code to get soundformat object: CSoundFormat soundFormat = pShape->get_SoundFormat();  The object soundFormat can not be called any funtion .

I want to know why it fail?How to extract an audio file use vba?

Thank you very much.