Determine filesize of MP3 from the file data

I need a VISUAL BASIC programmer to write a simple program to do just 1 thing: determine the filesize of an MP3 file. However, this CANNOT be done by conventional filesize detection methods such as GetFileSize API because the MP3 could be embedded in another file so it may have random data before and after it, so this must be done by reading the file data of the MP3 file, and probably traversing it like an MP3 decoder/player would. So this will require some knowledge of the MP3 file format. Here is an example "skeleton" of how the result might look, without the main code ... Imagine a form with just 2 textboxes: Text1 holds the target file (ie. a .MP3 file or a file with a .MP3 file embedded), and Text2 which holds the offset to the MP3 file within the target file (so it would be 1 if the MP3 was a standalone normal MP3, but greater than 1 if the MP3 file was embedded) <pre> Private Function GetMP3Size(sFiledata As String, MP3offset As Long) As Long '// '|| Now traverse the MP3 file to determine its size '|| This part is all you have to do '\\ End Function Private Sub Form_Load() Dim sFilename As String '// Target filename (the file that has a MP3 file inside it) Dim sFiledata As String '// The contents of the entire target file Dim MP3offset As Long '// Location of the MP3 file within the target file sFilename = [login to view URL] MP3offset = Val([login to view URL]) Open sFilename For Binary Access Read Shared As #1 sFiledata = Space(LOF(1)) Get #1, 1, sFiledata Close #1 MsgBox "The size of the MP3 file located at " & CStr(MP3offset) & " is " & CStr(GetMP3Size(sFiledata, MP3offset)) End Sub </pre> I look forward to hearing from you! ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Deliverables must be in ready-to-run condition, as follows (depending on the nature of the deliverables): a) For web sites or other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment. b) For all others including desktop software or software the buyer intends to distribute: A software installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request. 3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). ## Platform Windows, Visual Basic