 TagFileSimple _
         VarPtr(b(0)), _
         VarPtr(bArtist(0)), VarPtr(bAlbum(0)), VarPtr(bTitle(0)),
          VarPtr(bComment(0)), _
         VarPtr(m_tID3.Genre), VarPtr(bYear(0)), VarPtr(m_tID3.Track), 1, 0
         
   Else
      pErr 1, False
   End If
End Sub

Public Sub RemoveID3Tag()
   If FileExists(m_sFileNameApe) Then
      Dim b() As Byte
      b = StrConv(m_sFileNameApe, vbFromUnicode)
      ReDim Preserve b(0 To UBound(b) + 1) As Byte
      RemoveTag VarPtr(b(0))
   Else
      pErr 1, 