怎么将mmcontrol控件用来播放声音功能写到一个函数里？

现在我在另一个系统中需要用到一个播放一段声音的函数，我那个系统（SYSTEM)内嵌了VBA。怎么将用控件MMControl来播放音频的功能写在一个函数中，供SYSTEM调用？　　也就是怎么用一个函数来实现播放一段声音。。　　　谢谢