Изменение кодировки штрихкода в отчете Fast Report

В коде отчета добавляем:

Private Sub ReCode1(ByVal sender As Object, ByVal e As EventArgs)
 try
    Dim sourceT As String
    Dim utf8 As Encoding = Encoding.GetEncoding("Windows-1251")
    Dim win1251 As Encoding = Encoding.GetEncoding("UTF-8")
    Dim utf8Bytes As Byte() = win1251.GetBytes(sender.Text)
    Dim win1251Bytes As Byte() = Encoding.Convert(utf8, win1251, utf8Bytes)
    sourceT = win1251.GetString(win1251Bytes)
    sender.Text = sourceT
  catch
  end try 
 End Sub

И указываем его в событии штрихкода – AfterData