VBS for Check the zide and move files

Hi , Hope all are fine . I have thsi VBS it check files with xml extention and if their size is 100 their move to new location but it gave me error can you please help me

Code:

---

Set fso = CreateObject("Scripting.FileSystemObject")

dir = "C:\Users\Admin\AppData\Local\Temp"

For Each f In fso.GetFolder(dir).Files
  If f.Size > 100 And fso.GetExtensionName(f) = "xml" Then
    f.MoveFile "C:\Users\Admin\Desktop\Source"
  End If
Next

---