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. (Quando terminar de executar seje informado).

Abaixo segue a rotina para tocar o arquivopara tocar o arquivo.
'No modulo Classe
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

'No modulo

'===         Informa o Processo do arquivo em execução ==================
Public Sub waveOutProc(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance _
                As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long)
   
    If (uMsg = MM_WOM_DONE) Then
           fPlaying = False

           como tranportar o resultado para o modulo classe???

           Tentei  assim:

           dim myObj as application(nome do meu modulo classe)

                 set myObj = new application

                      myobj.rotina(uMsg)

                set myobj = nothing

           Não Funcionou.

           Preciso de um Help.
    Else
       fPlaying = True
    End If
   
End Sub

Desde já agradeço.