Fejl i kode

Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)
Sub RewindMovie()
Slide14.ShockwaveFlash1.GotoFrame 1
Slide14.ShockwaveFlash1.Play
End Sub
End Sub

I linie 1 får jeg fejlmeddelsen "expected end sub".
Jeg kender ikke en pind til VB, men jeg skal bruge det til at køre en flashfilm i powerpoint.