Unrandomize files in a folder

Dim labelStart, newName

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "G:\"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files

For Each objFile in colFiles
      if (inStr(objFile.Name, "_RML_") > 0) then
      labelStart = inStr(objFile.Name, "_RML_") + 5
      newName = Mid(objFile.Name, labelStart)
      objFile.Name = newName
    end if
Next
msgbox ("Mission accomplished")