Arquivo Wave

Amigos,

Estou precisando passar o parametro para o modulo classe.
E o seguinte:
Meu projeto necessita que apos tocar o arquivo wave seje identificado o final deste processo. (Qaundo terminar de executar seje informado).

Abaixo segue a rotina.

Sub Play(ByVal soundcard As Integer)

Dim lFlags As Long

    If soundcard = -1 Then
        lFlags = CALLBACK_FUNCTION
    Else
        lFlags = CALLBACK_FUNCTION Or WAVE_MAPPED
    End If

    format.cbSize = 0

    rc = waveOutOpen(hWaveOut, soundcard, format, AddressOf waveOutProc, 0, lFlags)
    If (rc <> 0) Then
      GlobalFree (hmem)
      waveOutGetErrorText rc, msg, Len(msg)
      err.Raise rc, "Play", msg & ""
      Exit Sub
    End If

    outHdr.lpData = bufferIn
    outHdr.dwBufferLength = numSamples * format.nBlockAlign
    outHdr.dwFlags = 0
    outHdr.dwLoops = 0

    rc = waveOutPrepareHeader(hWaveOut, outHdr, Len(outHdr))
    If (rc <> 0) Then
      waveOutGetErrorText rc, msg, Len(msg)
      err.Raise rc, "Play", msg & ""
      Exit Sub
    End If

    rc = waveOutWrite(hWaveOut, outHdr, Len(outHdr))
    If (rc <> 0) Then
      GlobalFree (hmem)
    End If

End Sub

Minha duvida como tranportar (AddressOf waveOutProc) para uma rotina do modulo classe ????? para identicar atraves do raiseevent o final deste processo.

Desde já agradeço.