Script ricerca tramite codice a barre del documento

Salve, ho sviluppato uno script che ricerca un documento attraverso l'inserimento  in inputbox del tipo di documento ed il numero del documento.

Vorrei però rendere più semplice la ricerca, attraverso la lettura del cod. a barre del documento , in questo modo immagino che eviterei di chiedere pure il "tipo di documento".

Allego parte dello script:

dim docdate
dim order
dim fname
dim ndoc
Dim righe

Rdy.LogForm_Show  true , true , false
ndoc=0
order=0
DataInizioStatistica = DateAdd("d",-60,Rdy.Today())
DataFineStatistica = Rdy.Today()

tipodoc = InputBox("Scrivi il numero corrispondente al documento:" & vbNewLine & vbNewLine & "1) Documento di trasporto" & vbNewLine & "2) Fattura accompagnatoria" & vbNewLine & "6) Ordine cliente" & vbNewLine & "7) Preventivo" & vbNewLine & " Fattura differita" )
fname = Ucase (InputBox("Inserisci il numero del documento da Inviare tramite Whatsapp" & vbNewLine))
if tipodoc = "" or fname = "" then
else
For Each Documento In Rdy.SearchDocs(tipodoc,DataInizioStatistica, DataFineStatistica)
ndoc = ndoc + 1
Rdy.LogForm_Progress ndoc, 1500, "Ricerca doc. num: " & fname

if Documento.CustomField(10) = fname then
order = order + 1
dest = Documento.Customfield(30)
If Rdy.ShowMessageYesNo("E' STATO TROVATO IL SEGUENTE DOCUMENTO: " & fname & vbNewLine & "intestato a " & dest & vbNewLine & "e verrà inviato al num. " & Documento.CustomField(10 & vbNewLine & "Il numero è corretto?") Then
    num = Documento.CustomField(10
Else
num = InputBox("Inserisci il numero di telefono")

end if
....

quale funzione potrei utilizzare?
lo utilizzo per creare il pdf del file trovato e generare un txt con dei dati che poi lavoro con un programma esterno