t = Timer

         ' FSO Constants
         Const ForReading = 1
         Const ForWriting = 2    
         Const TristateUseDefault = -2
              
         ' Variables
         Dim objFSO, objTS, objOTS

         ' Instantiate the object
         Set objFSO = CreateObject("Scripting.FileSystemObject")

         ' open the text file read only
         Set objTS = objFSO.OpenTextFile("c:\Temp\test.txt", ForReading, False, TristateUseDefault)
           
         ' We now open the file to write it out
         Set objOTS = objFSO.CreateTextFile("C:\Temp\out.txt", ForWriting)

         Do While objTS.AtEndOfStream <> True
         tmp = objTS.ReadLine()
             objOTS.Writeline Mid(tmp, InStr(tmp, ":") + 1)
         Loop
              
         ' Close all files after we read it in.
         objTS.Close
         Set objTS = Nothing
         objOTS.Close
         Set objOTS = Nothing
         Set objFSO = Nothing
           
t = Timer - t
MsgBox "OK! Ready in " & t