Help with renaming part of file

[Bob Phillips]

Dim strFolder As String
Dim strFile As String

    strFolder = "C:\Dave\"
    strFile = Dir(strFolder & "\*.*")
    Do While Len(strFile) > 0
    
        If InStr(strFile, "Model (1)") > 0 Then
        
            Name strFolder & strFile As strFolder & Replace(strFile, " Model (1)", "")
        End If

        strFile = Dir()
    Loop