hen
         bTitle(29) = 0
      End If
      
      Dim bComment() As Byte
      bComment = StrConv(m_tID3.Comment, vbFromUnicode)
      ReDim Preserve bComment(0 To UBound(bComment) + 1) As Byte
      If (UBound(bComment) &gt;= 28) Then
         bComment(28) = 0
      End If
      
      Dim bYear() As Byte
      bYear = StrConv(m_tID3.Year, vbFromUnicode)
      ReDim Preserve bYear(0 To UBound(bYear) + 1) As Byte
      If (UBound(bYear) &gt;= 4) Then
         bYear(4) = 0
      End If
            
     