Dim obj_MB
Set obj_MB=CreateObject(“MARCEngine5.MARC21”)
dim rec
dim streamreader
set streamreader = obj_MB.OpenReadStream(“C:\Users\Terry\Desktop\z3950.mrc”, 1252)
rec = obj_MB.ReadAll(streamreader)
obj_MB.CloseReadStream(streamreader)
lret=obj_MB.Export_Tabbed_MARC_Stream_2(rec, “020$a,245$a,245$b,100$a,100$b,260$a,260$b,260$c,020$z,960$s,960$u,960$w,001″, 1)
msgbox (lret + ” finished”)