Vbscript to rename files and replace special characters

Question

Dear Exprt,
would you please help to add addtional requirement for rename and replace special characters for file
by the below script i can re name.
strAnswer = InputBox("Please enter folder location to rename files:", _
    "File rename")
    strfilenm = InputBox("Enter name:", _
    "Rename Files")
Set FSO = CreateObject("Scripting.FileSystemObject")
Sub visitFolder(folderVar)
    For Each fileToRename In folderVar.Files
        fileToRename.Name = strfilenm & fileToRename.Name
    Next
    For Each folderToVisit In folderVar.SubFolders
        visitFolder(folderToVisit)
    Next
End Sub
If FSO.FolderExists(strAnswer) Then
    visitFolder(FSO.getFolder(strAnswer))
End If
[email protected]

Answer 1

Thx would you please look below what wrong in its run  nothing happend no error
strAnswer = InputBox("Please enter folder location to rename files:", _
    "Test")
    strfilenm = InputBox("Enter name:", _
    "Rename Files")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp
'Your pattern here
Select Case tmpChar
Case "&"
changeTo = " and "
Case "/"
changeTo = "_"
Case Else
changeTo = " "
End Select
regEx.Pattern = tmpChar 
Sub visitFolder(folderVar)
    For Each fileToRename In folderVar.Files
        fileToRename.Name = strfilenm & fileToRename.Name 
        fileToRename.Name = regEx.Replace(fileToRename.Name, tmpChar)
    Next
    For Each folderToVisit In folderVar.SubFolders
        visitFolder(folderToVisit)
    Next
End Sub
[email protected]