Visual Basic

DES Coding on visual studio 2010

Console.Write("Enter x: ")
x = Console.ReadLine
Console.Write("Enter y: ")
y = Console.ReadLine
For count = 1 To 5
    NumGen = rnd.Next(x, (y + 1))
    Console.WriteLine(NumGen)
Next
Console.ReadLine()

Hello everyone, I'm new here.
I am desperate for a solution to my problem in the visual basic code.
With the library TagLib I can write ID3v2 tags on mp3. I'm having trouble seeing the text Lyrics on Android devices and I realized that the problem is the text encoding (by TagLib).
With an encoding in ISO-8859-1 or UTF16 everything works good, but with UTF8 encoding will not work.
What I would know is how can I set the encoding TagLib write ISO-8859-1.
I do not know how, but it is the library that selects and applies automatic text encoding even if I have encode the text before in ISO-8859-1.
How can I fix?

Here's the code:

Imports TagLib

Dim Testo As String = "Text Lyrics"
Dim mp3 As TagLib.File = TagLib.File.Create("C:\Music.mp3")

'convertion in iso-8859-1
'Dim byText() As Byte = System.Text.Encoding.Unicode.GetBytes(Testo)
'Dim strTemp As Byte() = Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("iso-8859-1"), byText)

mp3.Tag.Lyrics = Testo 
mp3.Save()
mp3.Dispose()

lv_JobStatus.Groups.Add(New ListViewGroup() With {
   .Name = m_invoiceNumber,
   .Header = m_invoiceNumber & " - " & m_companyName,
   .HeaderAlignment = HorizontalAlignment.Left,
   .Tag = idx
})

For Each contact As model_ar_contactRecord In customer.FCONTACTS

    Dim item1 As New ListViewItem(m_invoiceNumber, idx)
    item1.Checked = False
    item1.SubItems.Add(m_item_customerNumber)
    item1.SubItems.Add(m_item_companyName)
    item1.SubItems.Add(contact.FCONTACT)
    item1.SubItems.Add(contact.FEMAIL)
    item1.SubItems.Add(If(dwXCode = 0, "X", ""))
    item1.SubItems.Add("")

    lv_JobStatus.Items.Add(item1)
    lv_JobStatus.EndUpdate()

 Next