Dim A(37),B
dim fso,f,i,j,k,l
Const ForReading=1
set fso=createobject("scripting.FileSystemObject")
set f=fso.OpenTextFile("C:\a.txt",ForReading)
for i=0 to 36
A(i)=f.readline
next
f.close
for j=0 to 36
for k=0 to 36
for l=0 to 36
B=A(j)&A(k)&A(l)
msgbox B
next
next
next