  Set cWriter = New cWAVWriter
   If (cWriter.OpenFile(sFile)) Then
      Set cTrack = m_cToc.Entry(lTrack)
      
      lblInfo.Caption = "Ripping track " &amp; cTrack.TrackNumber &amp; _
         " (" &amp; prgSelected.value + 1 &amp; " of " &amp; prgSelected.Max &amp; ") to " &amp; _
         sFile &amp; "..."
      
      Dim cTrackRip As New cCDTrackRipper
      cTrackRip.CreateForTrack cTrack
      
      If (cTrackRip.OpenRipper()) Then
         Do While cTrackRip.Read
            cWriter.WriteWavDat