Tilpasning af kode

Jeg ønsker at flytte mine fuldførte Outlook opgaver automatisk ved fuldførelse over i en separat mappe, som jeg har kaldt "Completed Tasks".
Jeg fandt denne guide med VBA kode (https://www.datanumen.com/blogs/3-quick-steps-auto-archive-completed-tasks-outlook/) som jeg har sat ind, men den virker ikke og jeg tænker at det skyldes, at jeg kører Office/Outlook på dansk (og måske derfor ikke genkender nogle objekter)?

Er der nogle som kan omskrive koden, så den kan afvikles i en dansk Outlook?

På forhånd mange tak.

VBA koden:

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim CompTaskf As Folder

    If TypeName(Item) = "TaskItem" And Item.Complete = True Then
      Set CompTaskf = Session.GetDefaultFolder(olFolderTasks).Folders("Completed Tasks")
      Item.Move CompTaskf
    End If
End Sub