如何在PPT中如何播放插入flash的指定片段？

下面的代码只是在PPT中播放插入flash的指定片段，但没有指定的结束帧，只能一直播放到结尾。请教如何修改代码，使之能由用户指定开始的帧和结束的帧（指定开始和结束的范围）
Private Sub CommandButton1_Click()
ShockwaveFlash1.GotoFrame 333
ShockwaveFlash1.Playing = True
End Sub