(bAlbum) + 1) As Byte
      If (UBound(bAlbum) &gt;= 29) Then
         bAlbum(29) = 0
      End If
      
      Dim bArtist() As Byte
      bArtist = StrConv(m_tID3.Artist, vbFromUnicode)
      ReDim Preserve bArtist(0 To UBound(bArtist) + 1) As Byte
      If (UBound(bArtist) &gt;= 29) Then
         bAlbum(29) = 0
      End If
      
      Dim bTitle() As Byte
      bTitle = StrConv(m_tID3.Title, vbFromUnicode)
      ReDim Preserve bTitle(0 To UBound(bTitle) + 1) As Byte
      If (UBound(bTitle) &gt;= 29) T