Dim mystring
mystring="br001.bmsevolution.com"
result = InputBox("Please Enter Customer Number Then press OK", "BMS Ltd", , 100, 200 )
If result = "" Then   ' Test for Cancel.
	WScript.Echo "User Canceled Please Run again"
Else
	WScript.Echo "You entered: " & result
End if		
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Program Files\Querix Phoenix\media\v4.qxs", ForReading)

strText = objFile.ReadAll
objFile.Close
strText = Replace(strText, "212.188.171.203" , mystring)
strNewText = Replace(strText, "br001" , "bms" & result) 

Set objFile = objFSO.OpenTextFile("C:\Program Files\Querix Phoenix\media\v4.qxs", ForWriting)
objFile.WriteLine strNewText
objFile.Close