Are you using VBA or Windows Scripting Host?
It looks like you're using WSH (the .VBS), but the statements are VBA so I'm not surprised it isn't working
You were also missing some path seperators
If you want to use WSH, then use the FileSystemObject and the .Files collection
Some thing like this
Dim strFolder
Dim strFile
dim oFSO, oFiles, oFile
strFolder = "C:\Users\Daddy\Downloads\test\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oFile in oFSO.GetFolder(strFolder).Files
strFile = oFile.Name
If InStr(strFile, "Model (1)") > 0 Then
oFSO.MoveFile strFolder & strFile, strFolder & Replace(strFile, " Model (1)", "")
End If
Next