Dim FSO, ReplaceTab, ObjShl, AllText, ObjFso, CreateFile, TristateFalse
Dim SourceFile, SourceUserInput, DestFile, DestUserInput, FileExist

SourceUserInput = InputBox("Please choose source file?", "Where is the File", "C:\Temp\Source.txt")
DestUserInput = InputBox("Please choose Destination file?", "Where is the File", "C:\Temp\Destination.txt")
TristateFalse = 0

' Variables
Sourcefile = SourceUserInput
DestFile = DestUserInput

Set Fso = CreateObject("Scripting.FileSystemObject")

Set ObjShl = Fso.OpenTextFile(SourceUserInput, 1)
AllText = ObjShl.ReadAll
ObjShl.Close

ReplaceTab = Replace(AllText, vbTab, ":")

Set ObjFso = Fso.CreateTextFile(DestUserInput, True, TristateFalse)
ObjFso.WriteLine ReplaceTab
ObjFso.Close

WScript.Sleep 2000

FileExist = Fso.FileExists(DestFile)
If FileExist = True Then
MsgBox Destfile & " was created Successfully."
WScript.Quit
End If

WScript.Quit