Llamar procedimiento desde un formulario

soy novato tengo este código comenzado que es para leer códigos de barras
function _strto128a(tcstring)
local lcstart, lcstop, lcret, lccheck, ;
lnlong, lni, lnchecksum, lnasc
lcstart = chr(103 + 32)
lcstop = chr(106 + 32)
lnchecksum = asc(lcstart) - 32
lcret = tcstring
lnlong = len(lcret)
for lni = 1 to lnlong
lnasc = asc(subs(lcret,lni,1)) - 32
if not between(lnasc, 0, 64)
lcret = stuff(lcret,lni,1,chr(32))
lnasc = asc(subs(lcret,lni,1)) - 32
endif
lnchecksum = lnchecksum + (lnasc * lni)
endfor
lccheck = chr(mod(lnchecksum,103) + 32)
lcret = lcstart + lcret + lccheck + lcstop
lcret = strtran(lcret, chr(32), chr(232))
lcret = strtran(lcret, chr(127), chr(192))
lcret = strtran(lcret, chr(128), chr(193))
*---
return lcret
endfunc
entonces en el formulario tengo un txt en el cual voy a introducir o pasar el código o nombre para que me muestre los datos mi pregunta es. Como llamo esta función desde ese txt. Gracias