Imports System

Imports System.Numerics

Imports System.Globalization

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim QrCodeHex As String = "010c426f6273205265636f726473020f3331303132323339333530303030330314323032322d30342d32355431353a33303a30305a0407313030302e303005063135302e3030"

        Dim bytes As Byte() = BigInteger.

            Parse(QrCodeHex, NumberStyles.AllowHexSpecifier).

            ToByteArray().Reverse().ToArray()

        Dim QrCodeBase64En As String = Convert.ToBase64String(bytes)

        COnsole.WriteLine(QrCodeBase64En)

    End Sub

End Module