I have found a way to do what I needed.
I have looked through many examples of code to make it...
This will take the file, c:\ap.in and take the duplicates out and write the new file to c:\ap.out .
Code:
sFile ="C:\ap.in"
set oFs = createobject ("Scripting.filesystemobject")
arrLines = Split(oFs.OpenTextfile(sFile).ReadAll,vbcrlf)
for i=0 to Ubound(arrLines)-1
if len(arrLines(i)) then
for j=i+1 to Ubound(arrLines)
if arrLines(j)=arrLines(i) then arrLines(j) = ""
Next
strNew = strNew & arrLines(i) & vbCrLf
End If
next
oFs.OpenTextfile("c:\ap.out",2,-1,-2).Write strNew