.NET 3.x Создать 2D штрих-код формата PDF417 - Visual Basic .NET

Формулировка задачи:

Доброе время суток, возник вопрос как создать 2D Штрих код форматом PDF417. Подскажите как это можно сделать?(желательно пример) ну или на пальцах Кодировать собираюсь много.... строк

Решение задачи: «.NET 3.x Создать 2D штрих-код формата PDF417»

textual
                            Листинг программы 
                        

                            Const LETTERS As String = "бвгдеёжзийклмнопрстуфхцчшщъыьэюя№"
Const SYMBOLS As String = "]^_}a[bcdefghijklmnopqrstuvwxyz{#"
 
Public Shared Function PDF417str2(ByVal Do_kodeka As String) As String
    If Do_kodeka.Equals("а") Then Return String.Empty
    Dim index As Integer = LETTERS.IndexOf(Do_kodeka, StringComparison.InvariantCultureIgnoreCase)
    If index = -1 OrElse index >= SYMBOLS.Length Then
        Throw New ArgumentOutOfRangeException()
    End If
    Return SYMBOLS.Substring(index, 1)
End Function
                        