Moving Task on completion to Archive

[Roniou2]

This is my attempt at this using the itemchange event but the code does not work on moving the task any idea why. It is finding the right task as the categories are being removed it just will not move to the Completed folder. Any help would be very much appreciated. The code I have is as follows:

Private WithEvents Items As Outlook.Items

Private Sub Class_Initialize()
Dim Ns As Outlook.NameSpace
Dim DestFolder As Outlook.Folder
Set Ns = Application.GetNamespace("MAPI")
Set TaskFolder = Ns.GetDefaultFolder(olFolderTasks)
Set Items = TaskFolder.Items
Set DestFolder = TaskFolder.Folders("Completed") ' Subfolder of the Task Folder
End Sub

Private Sub Items_ItemChange(ByVal Item As Object)

Dim Task As Outlook.TaskItem
Dim TaskCopy As Outlook.TaskItem

If TypeOf Item Is Outlook.TaskItem Then
Set Task = Item

If Task.Status = olTaskComplete Then
Task.Categories = ""
Task.Save
Task.Move DestFolder
End If
End If

End Sub