Here is a function for extracting the ID3 tag from a MP3 file. Add the following lines of code into a Module:

 Public Type ID3Data    Tag As String * 3    Title As String * 30    Artist As String * 30    Album As String * 30    Year As String * 4    Notes As String * 30    Genre As String * 1End TypePublic Function ExtractID3(FileName As String) As ID3DataOn Error GoTo ExtractID3_ErrDim udtID3 As ID3DataDim intFileNo As Integer        intFileNo = FreeFile()    Open FileName For Binary As #intFileNo        Get #intFileNo, LOF(intFileNo) - 127, udtID3        If udtID3.Tag =
See also  Professionalism Starts in Your Inbox: Keys to Presenting Your Best Self in Email