Dúvida sobre tópico "Qr Code (Código de Barras 2D)"

Viva a todos, espero não estar a infringir alguma regra do forum.

Queria colocar uma questão referente ao exemplo que se encontra neste tópico:
https://www.maximoaccess.com/t15160-qr-code-codigo-de-bar

Para que serve a seguinte sub que lá se encontra e não está a ser utilizada?

Código:

Sub ReadQrCode()
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogOpen)
dlg.Show
FileName = dlg.SelectedItems(1)

StrokeScribe1.Alphabet = DATAMATRIX  'or 'QRCODE  or PDF417 or DATAMATRIX
Open FileName For Input As #1  'opens the file selected by user
text = Input$(LOF(1), 1)
StrokeScribe4.text = text
Close #1
End Sub

Obrigado.

Bruno Gordino

Olá Bruno, não está a quebrar regra nenhuma.
Pelo contrário, está a cumprir perfeitamente as Regras do Forum.
Bem haja, parabéns!
Que sirva de exemplo para os colegas menos atentos.

Abraço