'...
Artist = byteArrayToString(id3Tag, 33, 30)
If (Not verify(Artist)) Then
    Artist = "unknown artist"
End If
'...
 
Private Function byteArrayToString(ByVal arrByte() As Byte, ByVal intBeginPOS _
  As Integer, ByVal intLength As Integer) As String
        Dim enc As New System.Text.ASCIIEncoding
 
        Return enc.GetString(arrByte, intBeginPOS, intLength)
    End Function