InputBox problem

Dim $sequence = 00
; $Folder="C:\Program Files\PMAIL\MAIL\Docfxit\" ; Live
$Folder = "C:\Scratch\Scratch11\" ; Test
;$File = InputBox("Find and replace", "Name and/or path of the file", "Hierarch.pm", "", 500, 100)
;MsgBox(48, "Path\File", $Folder & $File)
$File = "Hierarch.pm"
$FileContent = FileRead($Folder & $File, FileGetSize($File))
$Find = InputBox("Find and replace", "What to find?", "FindThisText", "", 500, 100)
$Replace = InputBox("Find and replace", "What to write instead?", "ReplaceWithThisText", "", 500, 100)
$Confirm = MsgBox(65, "Find and replace", "You are about to change every instance of " & $Find & " by " & $Replace & " in the file " & $File & @LF & "Are you sure? ") ; $Replace shows here
MSGBox(4096,"","Replace -", $Replace & "-") ; $Replace doesn't show here
If $Confirm = 1 Then
$sequence = StringFormat("%02d", $sequence + 1)
FileCopy($Folder & $File, $Folder & $File & "." & $sequence & ".bak")
$FileContent = StringReplace($FileContent, $Find, $Replace)
FileDelete($File)
FileWrite($File, $FileContent)
EndIf