生成する必要があるコードの量に応じて、Google Charts API を使用して QR コードを生成できます。
「Microsoft Web Browser」ActiveX コンポーネントと次のコードをフォームに追加するだけです。
Dim Size As Integer
Dim Text As String
Dim URL As String
Size = 200
Text = "This is my test"
' Better to actually use a URL encoding function like those described here:
' http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
Text = Replace(Text, " ", "%20")
URL = "http://chart.apis.google.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chld=H|0&chl=" & Text
WebBrowser.Navigate (URL)
もちろん、必要に応じてサイズとテキストを変更できます。テキストは、フォームから直接値にすることもできます。つまり、データです。
使用する前に、Google の利用規約を確認することをお勧めします。