' Function to generate a QR code Function GenerateQRCode(ByVal text As String, ByVal filename As String) As Boolean On Error GoTo ErrorHandler

' Add Mode Indicator (0100) AddBits Bits, 4, 4

Import mdQRCodegen.bas into your VB6 project.